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About this book 






This book contains lots of exercises, 
puzzles and problems to solve by 
writing programs, to help you practise 
your BASIC. There are programs with 
missing lines and variables to fill in, 
listings full of bugs to spot and correct, 
and ideas for programs to write 
yourself. The book covers all the most 
important BASIC commands, starting 
with simple PRINT statements and 
ending with guidelines for writing a 
long program for a treasure hunt 
game. 


Programs filled with bugs and 
mistakes are marked with a “bug” like 
the one at the beginning of this 
paragraph. This tells you to hunt for the 
mistakes and correct them so that the 
program runs properly. Other 
programs have lines and variables to fill 
in. The lines you have to complete are 
marked with an asterisk and the spaces 
to fill are marked with question marks. 


Sometimes the program lines in the 
answers will differ from the ones you 
write yourself. If your program runs 
alright, don’t worry, there are often 
several ways of writing the same 
program. Try comparing your 
answers with the ones in the book to 
see which method is the most 
effective. q 


All the programs in this book are 
written in a standard BASIC which 
means that they should run without 
much alteration on most computers. 

Some words are different on all computers 
so if you type in a program and get a bug 
you should check the BASIC words in the 
program. There is a conversion chart to 
help you on page 47. 

If you are not sure what a BASIC 
command does, there is a guide to 
BASIC which lists all the words used in 
this book and gives a brief explanation 
of each one. Special guidelines are 
given for writing programs on Sinclair 
(Timex) computers and there are also 
alternative answers for these 


The answers to all the puzzles and 
program projects are given at the 
back of the book with detailed 
explanations. Use the answers to help 
you when you get stuck especially in 
the longer programs. Often the 
answer to a problem in the first few 
lines can help you solve later 
problems or give you a hint to writing 
the rest of the program on your own. 





Getting to know BASIC 

These two pages give you some practice using the command PRINT. This tells the 
computer to display something on the screen. You can use PRINT as a direct 
command, that is, with no program line number and the computer will carry out the 
instruction straight away. After a direct command you have to press RETURN (or 
ENTER or NEWLINE, it varies on different computers). 



PRINT 2+2+3 
PRINT 6+8 
PRINT 15-4 
PRINT 16/4 
PRINT SQR(16) 
PRINT 5346-257 


Try typing these direct commands into your 
computer. When you tell the computer to 
print letters, or letters and numbers 
together, they must be in quotation marks. 
Numbers by themselves do not need 
quotes. 


You can also use PRINT to make the 
computer do calculations. Here are some 
simple sums using BASIC mathematical 
symbols. If you cure not sure what they mean, 
try them out. 



All these instructions tell the computer 
where to print on the screen. Try them out to 
see what they do. Punctuation marks have 
special meanings in BASIC. A comma tells 


the computer to leave some spaces before 
printing the next item and a semi-colon tells 
it to print the next item on the same line 
without leaving a space. 


Correcting mistakes and altering 
programs 

Mistakes in programs 
are called bugs. They 
can be caused by 
simple typing errors, 
or by breaking the 
rules of BASIC. You 
need to find out how to 
correct mistakes on 
your computer and 
how to alter programs. 















Simple program puzzles 


Here is a simple program to try. It makes the computer display the message shown on the 
screen on the right. Try running the program, then see if you can change it to make the 
screen look like those shown below. The direct commands on the opposite page should 
help you. There are some hints on altering programs and correcting mistakes at the bottom 


of the page. 

10 PRINT "WHAT'S YOUR NAME?" 


Makes computer wait 
for you to type in your 

20 INPUT A$ J-name and then stores it 

in a variable called 
A$. 


30 PRINT ]- 

40 PRINT "HELLO" 
50 PRINT A* 1- 


PRINT by itself 
makes an empty line. 
Tells computer to 
print word stored in 
A$. 


WHAT'S YOUR NAME? 
7R0B0T 


HELLO 

ROBOT 


Type the program into your computer pressing RETURN (or your computer’s word) after 
each line. At the end, type RUN and then press RETURN. 



The difference between the program and the direct commands on the opposite page is 
that each line of instructions in a program has a number. The computer stores the 
instructions in its memory and does not carry them out until you type RUN. If you use line 
numbers going up in tens you can add extra instructions without renumbering the 


program. 



10 PRINT 
20 PRINT 
15 PRINT 


•’THIS IS A” 
”PROGRAM” 
’’SILLY” 


You can add new lines anywhere in a 
program, or correct old ones by retyping 
them. Try typing in this program exactly as 
it is here and see what happens when you 
run or list it. 
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Variable puzzles 

A variable is a labelled space in the computer’s memory where a piece of 
information is stored. To tell the computer to store a piece of information ina 
variable, you can use the BASIC words LET or INPUT as shown below. Information 
containing words or a mixture of letters, numbers and symbols is called a string. A 
string must be in quotes and its label has a dollar sign after it. 

. r 

10 LET A=16 
20 LET R %="RUSTY 
30 PRINT A 
40 PRINT RS 



RUN 
16 

j^RUSTY 

LET tells the computer to label a memory 
space and put some information into it. 

Choosing variable names 


INPUT labels a memory space and makes 
the computer wait for you to type in the 
information when you run the program. 



LET B$="6422 RATS" 

LET B5=6422 
LET K1=99 
LET FLS="FLEA" 

BASIC is very fussy about the label you give 
a variable and the rules vary on different 
computers. For instance the ZX81 (Timex 
1000) only accepts one letter names for 
string variables.* 

Words and variables 

10 LET RR$="RUSTY ROBOT** 

PRINT "HELLO ";RR$ 



Try typing a comma instead of a 
semi-colon and see what happens. 


When you put words and variables together 
in a PRINT statement, the words must be in 
quotes and you put a semicolon between 

PRINT puzzle 


[ 


LET A=66 
LET B=77 

LET RRS="RUSTY ROBOTS" 


Can you write a program using the 
variables given above so that when you run 



LET LETTER*="HI' 

LET TEN=10 
LET RUN$="MORE'RATS" 

LET FLEA$="50 FLEAS" 

If you use words as variable names you*’ 
must not use ones which contain BASIC 
words as this will confuse the computer. Try 
the lines given above to see which are legal 
on your computer. 


10 LET R*="RUSTY" 

20 LET S=66 

30 PRINT R*;" ROBOT ATE "; 
^ 40 PRINT S; M SAUSAGES" ^ 

the words and the variable. You need to 
leave a space inside the quotes either side 
of the words. Try leaving out the spaces in 
the lines above and see what happens. 


[ 


66 RUSTY ROBOTS ATE 
77 SINGED SAUSAGES 


] 


the program your screen looks like this? 


* If you have a ZX81 you will have to alter string variable names of more than one letter where they 
occur in this book. 





























Looking inside a program 


This program converts temperatures from Fahrenheit to Centigrade. If you are not sure how 
the program works or what the variables do, try adding some PRINT lines to make the 
computer display the contents of the variables on the screen. This way you can look “inside" 
the program to help you understand how it works. 


10 INPUT A 
20 LET F=32 
30 LET B=5 
40 LET C=B/9 
50 LET D=A-F 
60 LET R=D*C 
70 PRINT R 


The Fahrenheit 
temperature you type 
in is stored in the 
variable A. 


fry adding some lines to the 
/program to find out the values of G 
land D. 


Program puzzle 

Now see if you can change this 
program to convert a temperature from 
Centigrade to Fahrenheit. 


Program writing puzzles 


In the boxes below there are some ideas for simple programs to write. You will need to use 
lots of variables so keep a note of them and the names you choose for them. It is a good idea 
to choose variable names that remind you of what the variables do, or what they stand for. 
Try writing the programs on paper first, then type them into a computer and debug them if 
necessary. 



2 Speed calculator 

Can you write a program to calculate speed? You will 
need INPUT lines for the time and distance, a sum to 
calculate the speed and PRINT lines to make the 
program clear. 


Robot 1 eats 30 sausages an hour but Robot 2 
can only eat 20 in the same time. If Robot 2 
wants to eat at least 35 sausages and Robot 1 
refuses to eat slower, how many sausages 
must they buy and how long will they take to 
eat them all? 

variables, two to hold the numbers of 
sausages the robots can eat and one to hold the number Robot 2 
wants to eat. Use more variables to hold the time Robot 2 takes to eat 
35 sausages and the number of sausages Robot 1 can eat in that time. 


Hints: Use LET with a string van able to hold the letters UG, 
and INPUT to ask for the English word. Then print out both 
the variables to display the Uglian word. Use PRINT 
statements to make the program clearer. 


1 Do you speak Uglian? 

You have been asked to go on a special 
mission to the Uglies who speak English but 
with the letters UG stuck onto the beginning 
of each word. Try writing a program to 
translate English words into Uglian. 























Repeating things x 


It is very useful to be able 
to make the computer 
repeat something several 
times. One way to do this 
is with a loop using the 
words FOR, TO and 
NEXT. Try running the 
program on the right to 
see how a loop works. 


10 FOR K=1 TO 10 


10 FOR 1=1 TO 10 

20 PRINT K 


20 PRINT 15" X 8 "5 

30 NEXT K 


30 PRINT -* "51*8 



40 NEXT I 

_ r Tho lottorc 1 1 K 




10 FOR L=1 TO 15 
20 PRINT TAB(L); 
"HELLO" 

30 NEXT L 


and L are usually 
used as variable 
names in loops. 


Loop puzzles 


You can see how the loop variable works by putting in a 
PRINT command to display its value. You can also use the 
value of the variable inside the loop. Try these. 


HELLO HELLO HELLO 
ELLO HELLO HELLO HE 
LLO HELLO HELLO HEL 
LO HELLO HELLO HELL 


T 

el 

tL- 


HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 


Can you write a simple loop program to fill your screen with 
HELLOs, and another to print a column of HELLOs down the 
centre of the screen? 

Steps 



10 FOR 1=1 TO 25 STEP 5 


10 FOR J=20 TO 1 STEP-1 

20 PRINT I 


20 PRINT J 

30 NEXT I 


30 NEXT J 


You can change the way that the variable counts by using the word STEP and a number 
which tells the computer to count in steps of that number. If you use a negative number the 
computer will count backwards. Run these programs, they try changing the STEP 
numbers. 
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Delay loops 


Computers work at different 
speeds so you might need to 
make the loop bigger or 
smaller by changing the 
figure 1000. 


10 FOR J=10 TO 1 STEP-1 
20 PRINT J 
30 NEXT J 

40 FOR K=1 TO 1000 
50 NEXT K 

60 PRINT "LIFT OFF" 


SECRET MESSAGE 
MEMORISE IN 5 SECONDS 
THEN IT WILL DISAPPEAR 

MEET AGENT X. 2.00 AIRPORT 


A delay loop is an empty loop with no 
instructions in it. In this program lines 40-50 
make the computer count from 1 to 1000 and 
this makes it pause a moment. 


Try writing the program to make your 
computer print out a secret message like 
the one above, then make it disappear after 
5 seconds. To do this you need a delay loop 
followed by your computer’s command to 
clear the screen. Experiment to find the 
correct figure to put in the delay loop. 


Pattern puzzles 


1 




10 

LET AS="***" 


20 

FOR J=1 TO 7 


30 

PRINT TAB(J);AS 


40 

NEXT J 


50 

FOR K=1 TO 3 


60 

PRINT TAB(J + l);AS 


70 

NEXT K 


80 

FOR L=7 TO 1 STEP-1 


90 

PRINT TAB(L);AS 


100 NEXT L 




You can use graphics 
characters instead of stars if 
your computer has them. 


80 FOR L=8 TO 18 
90 PRINT TAB(L)5 AS;"**" 
100 NEXT L 


The program on the left makes a pattern of 
stars on the screen. Try running it then 
change it to make different patterns. One 
idea is given above. 
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10 CLS 
20 LET A=15 
30 PRINT TAB(A)?"*" 
40 FOR K=1 TO .9 

♦ 50 PRINT TAB ( 

♦ <S0 PRINT TAB ( ? ) ; 

♦ 70 ? 



Can you complete lines 50 to 70 of this program so that your Now change the program to 

screen looks like the one above? print the shape upside 



from puzzles 2 and 3 patterns like these. 

together to make a diamond 9 

shape. 

•Look up the colour commands for your computer in your manual. 









































Loop puzzles 

You can use loops inside other loops. These are known at nested loops. Each time 
the outside loop is repeated, the nested loop will run a certain number of times. 


10 FOR K=1 TO 3 
20 FOR L=1 
30 PRINT K, 

40 NEXT L 
50 NEXT K 


This program prints out the values of the 
loop variables so you can see how the 
nested loop works. 


TO 5 
L 




Nested loop 


10 FOR 1=1 TO 4 
20 FOR J=1 TO 4 
30 PRINT 
40 NEXT J 
50 PRINT "HELLO" 
60 NEXT I 


Run this program then try changing the size 
of the loops. Can you add another nested 
loop to make the program run more slowly? 


Bugs in loops 


10 FOR L=1 TO 15 

20 PRINT TAB(5)5 "*"5 

TAB(10)5 

30 FOR J=1 TO 5 

40 PRINT 

50 NEXT J 

60 NEXT L 



10 FOR 1=9 TO O 
20 FOR J=9 TO 0 
30 FOR K=9 TO O 
40 PRINT UJJK 
50 NEXT I 
60 NEXT J 
70 NEXT K 


STEP-1 


STEP 


STEP-1 


You must be careful to put both parts of the nested loop inside the other one or you will get a 
bug. The program on the left is correct but you must spot the mistakes in the program on 
the right and correct them. 


Binary counter 


Line 50 works out 
the decimal value of 
each binary digit. 


"I 


10 FOR A=0 TO 1 
20 FOR B=0 TO 1 
30 FOR C«0 TO 1 
40 FOR D=0 TO 1 
50 PRINT D+C*2+B*4+A*8J" 

60 PRINT A5B5C5D 
70 NEXT D 
BO NEXT C 
90 NEXT B 

100 NEXT A > Sr' 

innermost 
loop first. 


This program uses four nested loops to 
count in binary. It can’t count very far 
because it only uses four-figure binary 
numbers. Can you add more loops and 
change the PRINT lines to make a program 
that counts in eight-figure binary numbers? 


Flashing message 


DANGER 

SPACE ATTACK 


Can you write a program to print a message 
like this which flashes on and off? You will 
need a loop to clear the screen and print the 
message a number of times, and two delay 
loops so the message does not flash too fast. 


Computer clock 



Try writing a program to make your 
computer run like a clock. You will need a 
loop for the seconds, one for the minutes, 
and a delay loop. 
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Rocket lift off program 

Can you write a program using several 
loops to make a simple rocket shape “lift 
off’’ by moving slowly up the screen? 


1. You will need to clear the screen then 
print lots of empty lines so your rocket 
is printed at the bottom of the screen. 




You could use 
graphics characters 
if yourcomputer 
lets you. 


_ 


2. You can make a simple rocket shape using ordinary 
characters in PRINT statements. 


3. To make the rocket move up the screen, add more empty PRINT lines and a nested 
delay loop so the rocket does not move too fast. 

— 

Jumping man program 


See if you can write a simple animation 
program to make a figure like the one on the 

<o> 

0 

o 

<0> 

0 

0 

<0> 

□ 

0 

right, jump up and down as it moves across 

/ \ 

<0> 

/ \ 

<0> 

/ \ 

<0> 

the screen. 


/ \ 


/ \ 


/ \ 


Drawing the figures 

You can draw a simple 
figure in two different 
positions like those on the 
right, using PRINT with 
letters and symbols. 

Writing the program 


PRINT "<0> M 
PRINT M 0 M 
PRINT "/ \ w 


Add your 
own line 
numbers. 


You need this empty 
line to make the 
figure appear to jump 


PRINT 
PRINT " 0 
PRINT ”<0> 
PRINT "/ \ 


1. You will need a loop the size of the width of your screen. It should count in steps of 2. You 
will see why when you come to writing the PRINT TAB instructions. 



2. Inside the loop you have to clear the screen then PRINT the first figure. Use TAB so the 
position of the figure changes each time it is printed. 

3. Add a delay loop so the figure stays on the screen for a moment. 

4. Repeat this routine with a different TAB instruction for the second figure. 


<0> 

0 

<0> 

0 

<0> 

0 

<0> 

0 

<0> 

0 

<0> 

0 

<0> 

0 

<0> 

0 

<o> 

0 

<0> 

□ 

<□> 

□ 

<0> . 

0 

<0> 

□ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 

/ \ 
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IF/THEN exercises 

You use the words IF and THEN to compare pieces of 
mformation and tell the computer to do different things 
according to the results. 



10 LET A=8 
20 INPUT B 

30 IF B=A THEN PRINT "THEY’RE EQUAL" 
40 IF BOA THEN PRINT "THEY AREN’T 
EQUAL" 

50 IF B<A THEN PRINT Bj" IS LESS 
THAN "JA 

60 IF B>A THEN PRINT B;" IS MORE 
THAN "JA 


10 PRINT "HOW MANY CHIPS CAN YOU 
EAT?" 

20 INPUT C 

30 IF 0=0 AND C< = 10 THEN 
PRINT “YOU'LL STARVE" 

40 IF 010 AND C<»25 THEN 
PRINT "NOT MANY" 

50 IF 025 AND C< = 1000 THEN 
PRINT "GREEDY" 

60 IF C<0 OR OlOOO THEN PRINT"!!!" 


Try running this program to make sure you 


Most computers let you compare several 

know the meaning of the symbols that the 

things at once using the words AND and OR 

computer uses to compare pieces of 

in IF/THEN statements. Try running this 

information. 

program to see how they work. 

Tables tester 

Password 

lO LET A=13 


10 LET S*="SAUSAGES" 

20 FOR J-l TO 13 


20 PRINT "PASSWORD PLEASE "i 

30 PRINT "WHAT IS “|J»" X "5A;" 


30 INPUT P* 

40 INPUT B 

50 IF B=J*A THEN PRINT "CORRECT" 

60 NEXT J 


40 IF P*=S* THEN PRINT "O.K. CONTINUE" 


This is a program to test your 13 times table. 
Can you add more IF/THEN instructions to 
tell you when the answer is wrong and what 
it should be? 


Can you complete this program so the 
computer prints a message if you give the 
wrong password? Try adding to the 
program to make the computer ask for a 
secret number too. 


Branching 

You can give the computer lots of different instructions 
after the word THEN. For instance, you can tell the 
computer to stop the program or jump to another line using 
GOTO. 


10 LET C=0 

20 PRINT "ARE YOU BORED YET?" 

30 INPUT B4 
40 LET C-C+l 

50 IF B*="YES" THEN STOP 
60 IF C>10 THEN PRINT "YOU MUST BE" 
70 IF B*="NO" THEN GOTO 20 
80 PRINT "DON’T BE SILLY" 

90 GOTO 20 


In this program, the computer does 
different things depending on the answer 
you input at line 30. Run the program a few 
times using different answers. 



Computer calculator 


GIVE ME A NUMBER ? 7 
AND ANOTHER ? 11 
DO YOU WANT TO l 
ADD, SUBTRACT, DIVIDE 
OR MULTIPLY ? 

? MULTIPLY 

THE ANSWER IS 77 


Here is the output from a 
program which can add, 
subtract, divide or multiply 
the two numbers which you 
type in. See if you can write 
the program for it, then try 
changing it to carry out 
different calculations. 























Guessing games 


1 

10 INPUT X 
20 CLS 

30 PRINT "GUESS 
NUMBER" 

40 INPUT Y 

50 IF Y=X THEN GOTO 

70 

60 GOTO 30 
70 PRINT "CORRECT" 


1. Make the computer tell 
you when your guess is too 
small or too big, to help you 
guess correctly. 

2. Add a variable to count 
how many guesses you 
make, then set a limit to the 
number of guesses allowed 
using IF/THEN. 


This is a program for a simple number guessing game. One 
person chooses a number, the other has to try and guess it. 
See if you can improve the program following the 
suggestions listed above. 



Here is a screen showing a 
word guessing game. Can 
you write the program? It is 
similar to the number game 
except it uses strings. 


Horse race 


Here is a listing for a horse race game... but it is incomplete. See if you can fill in the 
missing line numbers after GOTO in the lines marked with an asterisk. You can find out 
how to play the game and ways to improve it below. 


10 LET N=0 
20 INPUT "1ST 
30 INPUT "2ND 


PLACE 

PLACE 


•;hi 

•;H2 


On most computers you can 
print words in INPUT lines as in 
lines 20 and 30. 


First player chooses which 
horses come 1st and 2nd. 


40 CLS 

50 LET N=N+1 3- 

60 INPUT "GUESS 1ST PLACE :";G1 
70 INPUT "GUESS 2ND PLACE :";G2 

* 80 IF G1=H1 AND G2=H2 THEN GOTO? 

♦ 90 IF G1=H2 OR G2=H1 THEN GOTO? 

*100 IF <G1 =H 1 AND G20H2) OR 

<G2=H2 AND GlOHl) THEN GOTO? 

110 PRINT "WRONG" 

♦120 IF N=4 THEN GOTO? 

130 PRINT "TRY AGAIN":GOTO 50 >- 

140 PRINT "ONE CORRECT GUESS":GOTO 120 
150 PRINT "CORRECT HORSE, WRONG PLACE": 
160 PRINT "CORRECT" 

170 PRINT "1ST PLACE:"5H15" 2ND PLACE:" 


N counts the number of 
guesses the second player 
makes. i 

Rememberto 
add the line 
numbers. 


Most computers will accept 
two instructions on one line like 
this. If your computer objects, 
put the second instruction on a 
' new line and leave out the 
colon. 

GOTO 120 
;H2 



Howto play 

There are six horses 
numbered 1 to 6. The first 
player chooses which 
horses come 1st and 2nd. 
The second player has 
four goes to guess which 
they are. 


Ideas to improve the game 
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Random numbers 

The word RND produces a random number, but the way the command is used 
varies from computer to computer. The different instructions are given below, but 
you should check the correct command for your computer in your manual or the 
conversion chart at the back of the book. Then see if you can do the exercisesand 
puzzles on these two pages. 


PRINT RND(99) 
PRINT RND(10) 


On some computers 
you just use RND with 
a number in brackets 
to produce a whole 
number between one 
and the number in 
brackets. 


PRINT INT(RND(1)*99+1) 
PRINT INT(RND(O)*99+1) 
PRINT INT(RND*99+1) 



To get a whole random number on most computers you need 
to use the word INT with RND followed by (1) or (0) if 
necessary. Then you multiply by the number of figures in the 
range you want and add the first number. For instance, all the 
commands in the box above tell the computer to pick a 
random number between 1 and 99. 


PRINT RND(6)+5 
PRINT INT(RND(1)*6+5) 
PRINT INT(RND(O)*6+5) 
PRINT INT(RND*6+5) 



These instructions produce a random 
number between 5 and 10. Try out the right 
one for your computer. 


Can you work out how to make your 
computer produce random numbers 
between 10 and 20? 



Program puzzle 

Look back at the number guessing 
game on page 13 and see if you can 
alter it so that the computer selects a 
random number between 1 and 20 for 
you to guess. 


Number sequence 



^ GUESS THE NEXT ^ 


♦ 10 LET X= ? 


NUMBER IN THIS 


♦ 20 LET Y= ? 


SEQUENCE 


30 FOR 1=1 TO 3 


4 13 22 


40 PRINT X+I*Y 


? 31 


50 NEXT I 


CORRECT 




L _1_ A 

1 You will have to fill in the randor 


PRINT 

X + I*I 

PRINT 

1*1—Y 

PRINT 

X+Y—1*1 

PRINT 

Y+X~I 
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See if you can write the 
program for this number 
sequence game shown on 
the screen above. Part of the 
program is given above 
(centre). 


lines 10 and 20 and add some PRINT and IF/THEN lines. On 
the right there are some ideas for changing line 40 to make 
different number sequences. Can you think of a way to 
extend the program so that the computer picks a sequence 
at random each time you run the program? 































Escape from Zorgos 

See if you can write the program for this 
game. You are stranded on the alien planet 
irgos and you need 50 Zchips to fuel your 
planet-mobile with enough memory to find 
its way back to Earth. You have been given 
10 Zchips but the only way to get any more is 
to win them by playing a risky game of 
chance with an alien computer. The 
screens below show you a sample run of the 


YOU HAVE 10 CHIPS 
PLACE YOUR BET : 3 
PRESS P TO THROWiP 
3 2 

KEEP YOUR BET 


YOU HAVE 10 CHIPS 
PLACE YOUR BET * 9 
PRESS P TO THROW:P 
6 « 

YOU TRIPLED YOUR BET 
YOU HAVE 28 CHIPS 


DOUBLES: 

10OR11: 

6 OR 7: 
OTHERS: 


YOURBET 

DOUBLED 
TRIPLED 
KEEPYOUR BET 
LOST 


You place a bet of Zchips and depending on what numbers come up when the computer 
throws two dice, you will win, lose or keep your bet. If you get doubles your bet is doubled, if 
the numbers add up to 10 or 11, your bet is tripled and so on as shown in the chart on the right. 


ise 


Paper, Stone or Scissors: Spot the bugs 

This is a program for the game Paper, Stone or Scissors to play against the computer, but 
it is full of bugs. Using the notes on the right which tell you how the program is supposed to 
work, see if you can spot the mistakes and correct them so that the program runs properly. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


C=0 “1 
A=0 [ 

F=0 J 


CLS 

LET C=< 

LET 
LET 

LET R=INT(RND(1)*4+1) 

IF R=1 THEN LET C*="PAPER" 

IF R=2 THEN LET C*="STONE" 

IF R=3 C*="SCISSORS" 

PRINT "I'M READY" 

PRINT "DO YOU WANT PAPER, STONE, OR SCISSORS" 
INPUT A* 

PRINT 

IF C$="PAPER" AND A*="SCISSORS" THEN 
IF C$="STONE" AND A$="PAPER" THEN 
IF AS="SCISSORS" AND A*="STONE 
IF C*=A* THEN LET F=2 
PRINT "YOU CHOSE "5 At 
PRINT "I CHOSE "?Ct 
PRINT "SO 

IF F=0 THEN PRINT "I WIN" 

IF F=F THEN PRINT "YOU WIN" 

IF F=2 THEN PRINT "IT'S A DRAW 
IF F=0 THEN LET A=A+1 
IF F=1 THEN LET C=C+1 
PRINT "THE SCORE IS:" 

PRINT "ME :";C 
PRINT "YOU :"5A 
IF 010 AND AMO THEN GOTO 40 
PRINT "THAT IS THE END" 


C keeps count of the computer’s score. 

A keeps count of your score. 

F tells the computer who has won in lines 
130-160. 


The computer’s choice of paper, 
stone or scissors is stored in C$ 
and depends on the value of R. 


LET F=1 
LET F=1 
THEN LET F=1 


The IF.. .THEN lines work 
out who wins. If you win, the 
computer makes F equal 1 
and if it is a draw then F is 2. 
Otherwise, F stays at 0 
which means that the 
computer wins. 


The computer tells you who is the 
winner and works out the score by 
testing the value of F. 


Do you remember how this 
game works? Paper covers 
stone, stone blunts scissors A 
and scissors cut paper. 























Character crunching 

The computer can do all sorts of things with the characters inside strings. The 
programs on this page show some of the commands that BASIC uses for handling 
strings and how they work. If you have a Sinclair (Timex) computer, you will have to 
use some different instructions as shown below. 


LET RS="ROBOT" 
PRINT LEFTS(RS,3) 
PRINT RIGHTS(RS,3) 
LET CS="CHIPMUNK" 
PRINT LEFTS(CS,4) 
PRINT RIGHTS(CS,7) 


10 

LET KS="KANGAROO" 

20 

PRINT 

"POSITION OF" 

30 

PRINT 

"FIRST LETTER"; 

40 

INPUT 

S 

50 

PRINT 

"HOW MANY LETTERS"; 

60 

INPUT 

N 

70 

PRINT 

MIDS (KS, S, N) 


LEFTS and RIGHTS tell the computer to take 
a number of characters from the left or right 
hand side of the string. You tell the 
computer how many characters to take by 
putting the nu mber in bra gjcets. 

The computer counts 
spaces in the same way as 
letters and symbols. 

10 PRINT "WORD PLEASE" 

20 INPUT WS 
30 LET L=LEN(WS) 

40 PRINT "THERE ARE "5 
50 PRINT L;" LETTERS"; 

60 PRINT " IN THE WORD ";WS 

The word LEN counts the number of 
characters in a string. Try this program to 
see how it works. 


MID$ tells the computer to take the middle 
letters of a string. The first number inside 
the brackets tells the computer where to 
start counting and the second tells it how 
many letters to take. 


Sinclair (Timex) computers 


LET AS="ABCDEFGHIJKLMNOP" 
PRINT AS(4 TO 6) 

DEF 

PRINT AS(14 TO 16) 

NOP 

Sinclair (Timex) computers do not use 
LEFTS, RIGHTS or MID$. Instead you 
tell the computer which characters to 
select in the way shown above. 


String puzzles 


I 10 INPUT "WORD";N* 

* 20 LET L«LEN(N*> 

r, 

30 FOR K=1 TO L 

p p 0 

♦ 40 PRINT TAB< K) } 

°”0 T 

MID*< ?,?,?> 


50 NEXT K 

L s J 


Can you fill in the question marks in line 40 to make your 
screen look like this? Hint: you can use MIDS to pick out one 
character from a string at a time. 


RUN 

WORD PLEASE 
? KANGAROO 
OORAGNAK 

Try making the computer 
print a word backwards 
using MID$ and a step -1 
loop. 


] 
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o 

O 10 LET SS= 

rr 

Q 

U 

A 

R 

E 

S ^ 

Q 

U 

A 

R 

E 

S 

s 

"SQUARES" 

U 

A 

R 

E 

S 

S 

Q feb 

20 LET L=LEN(SS) 

A 

R 

E 

S 

S 

Q 

u 

30 PRINT SS 

R 

E 

S 

S 

Q 

U 

A 

40 FOR J=1 TO L 

E 

S 

S 

Q 

U 

A 

R 

♦ 50 ? 

S 

S 

Q 

U 

A 

R 

E 

60 NEXT J 

Li. 

Q 

U 

A 

R 

E 

S ^ 


























Longest word 



At line 50 you 
need to tell the 
computer to 
store the longest 
word entered so 
far in variable A$. 
Try using IF/ 
THEN and LEN. 


10 LET A*="" 

20 PRINT "WORDS PLEASE" 
30 FOR J=1 TO 5 
40 INPUT W* 

♦ 50 ? 

60 NEXT J 

70 PRINT "LONGEST WORD 
80 PRINT A* 


WORDS PLEASE 
? CAT 
? LIZARD 
? HIPPOPOTAMUS 
? COBRA 
? ANT 

LONGEST WORD s 
HIPPOPOTAMUS 


This program finds the longest word out of a list of five. Fill in the missing line and try 
running it. 

Shortest word 

Can you write a program to find the shortest 
word? It is like the one above except that 
you need a variable which is longer than 
any of the words you type in for the 
computer to measure them against. You will 
need to change the IF/THEN instruction. 


Word editor 

The listing below is for a word editing 
program which enables you to type in a 
sentence and then change the words in it. 
Before you can run the program, you must 
fill the gaps in the lines which are marked 
with an asterisk. Use the notes on the right 
of the program to help you. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

LET 

150 

< ? , 
160 
170 
180 
190 
200 


CLS 

PRINT "SENTENCE PLEASE" 
INPUT S$ 

LET S%=?2 - 

PRINT "WORD TO REPLACE"; 
INPUT W* 

LET W*= ?□- 

PRINT "NEW WORD"; 

INPUT N* 

LET LS= \ 

LET LW= 

LET A*=" 

LET K=1 


5= ?1 

4=?S 


To find out how this program works, 
try writing a sentence on paper and 
then carry out the instructions in the 
program on it. 

Make the computer add a space to 
- the beginning and end of S$ and 
W$. Do you know why? 

Make LS equal the length of the 

-sentence (S$) and LW the length of 

the word (W$). 


IF MIDS(S*, ? 
A*=SS 


?)=W* THEN 


Complete this line to make the 
. computer search for the word to 

* j I replace (W$) in the sentence. Hint: 

_J use K to count the characters. 


IF AS=S* THEN LET S*=LEFT* “I 

1—2 ) ) J— This line makes the computer 


? )+ ?+RIGHT*(A*,LS-<K+LW 
LET LS=LEN<SS) 

LET K=K+1 

IF K<=LS—LW+1 THEN GOTO ? 
PRINT S % 

GOTO 50 


work out the number of characters 
to the left of the word you want to 
remove, then insert the new word 
and add the rest of the sentence. 
Can you fill in the missing variables 
and figure? 
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More character crunching 


Inside the computer, characters are represented by number codes and you can do things 
with characters by using these code numbers. The word CHR$ converts a number into a 
character. ASC (or CODE on Sinclair (Timex) computers) does the opposite and converts a 
character into its code number. Most home computers use a standard code for the numbers, 
called ASCII* code, although the ZX81 (Timex 1000) has its own. You will find a code chart 
for your computer in your manual. 


Using CHR$ 



PRINT CHRS(65> 
A 

PRINT CHRS(90) 
Z 


Try some PRINT CHR$ commands using these and other numbers. Some numbers are set 
aside for keys such as SPACE and RETURN so nothing will appear on the screen. You can 
find out which these are from your manual. 

Letter puzzles 


**10 FOR K= ? TO ? 
20 PRINT CHRS(K); 
30 NEXT K 

See if you can insert the 
correct numbers in the loop 
to make the program print 
out the alphabet. 

Using ASC or CODE 

PRINT ASC CP") 
PRINT ASC( M + M ) 
PRINT ASC<" ") 
Space S 


abcde-f ghi j kl 
nopqrstuvwxyz 


■ 1 [ I 3 0 I P Q C H K A 

z 'SKQCHUAMSn 
Jl isuno T QPJ^ 


Try writing a loop to print 
the alphabet in small (lower 
case) letters if your 
computer uses them. 


PRINT CODE("4") 
PRINT CODECU") 
PRINT CODE <"C") 


Can you write a short 
program to produce a 
series of random letters on 
the screen? 



Try using ASC (or CODE on Sinclair (Timex) computers) with these and other characters to 
see what numbers your computer produces. 


Comparing letters 



Using the symbols > and < 
try writing a program which 
makes the computer 
compare any two letters 
then puts them in 
alphabetical order. 


Capital converter 


10 PRINT "WHAT IS YOUR MESSAGE " 

20 INPUT M* 

30 FOR J=1 TO LEN(Mt) 

40 LET X*=MID*<M*,J,1) 

* 50 IF X*>="a" AND X*<="z" THEN 
PRINT CHR*<ASC<XS>-? ); 

* 60 IF X*>=”A" AND X« = "Z" THEN 
PRINT CHR*(ASC<XS>+7 ); 

70 IF X*<”A" OR XS>"z" THEN PRINT X*J 
80 NEXT J 


See if you can fill in the missing numbers in lines 50 and 60 to 
make the computer convert a message from small letters to 
capitals or from capitals to small letters. You will not be able 
to run this program if your computer only uses capital 
letters. 


'ASCII stands for American Standard Code for Information Interchange. 





























Code writing programs 


Here are some ideas for 
programs to convert 
messages into secret 
code. The chart on the 
right shows how the first 
program works. Fill in the 
missing numbers and 
symbols in the program, 
then try running it. 


Secret code writer 



—H *-—I I I—-# —• I I • 

THE PLANE LEAVES TONIGHT 
SID OMZOD KFZWDT UN 


Secret code writer program 

10 PRINT "WHAT IS YOUR MESSAGE" 
20 INPUT M* 

♦ 30 FOR J=1 TO?]- 



* 40 LET X= TJ- 


Make the loop the same size as the 
number of characters in M$. 

Make the computer select one 
letter at a time and store its ASCII 
- code number in X.* 


* 50 IF X< ? OR X> ? THEN LET N=X: 

GOTO 100 


♦ 60 IF INT <J/2)=J/2 THEN LET N= 

* 70 IF INT (J/2)OJ/2 THEN LET 


* 80 IF N< ? THEN LET N=N+26 

* 90 IF N> ? THEN LET N=N-26 

+ 100 PRINT ?3— Print the coded 
110 NEXT J letter using CHR$. 


L 

N=X ? 1 1 
N=X ? 1 j| 


Insert two numbers to check each 
character and make sure it is a 
letter. (Numbers and spaces stay 
the same in this secret code.) 

To shift the letters, add 1 to X if the 
loop counter (J) is an even number 
and subtract 1 if it is odd. 


If the shifted number (N) runs off either end 
of the alphabet, send it back to the other end 
by adding or subtracting 26. 


Key number code 

Alphabet 
Code alphabet 


■ N = X + Key number - 


-> N=N-26 


ABCDEFGHIJKLMNOPQRSTUVWXVZ 

GHIJKLMNOPQRSTUVWXYZABCDEF 



In this code the alphabet is shifted along a 
certain number (N) of letters. How far it 
shifts depends on a key number. In this 
example the key number is 6 so the 


alphabet is shifted along six letters. See if 
you can write the program, following the 
steps in the program above. You can use 
whatever key number you like. 

Reverse code 



a this code you add the value of the loop 
counter variable (J) to the ASCII number for 
each letter. See if you can write two 
programs, one to code a message and the 
other to work as a decoder. 


For this code you divide the message up 
into pairs of letters and swap the position of 
each letter in the pair including the spaces. 
To write the program, use a step 2 loop and 
print each pair of letters in reverse order. 


*If you have a ZX81 (Timex 1000), use the computer’s own code numbers. 


se^seqi^ Hkf^ssiC 













INKEY$ exercises 

The word INKEY$ makes the computer 
look at the keyboard and see if a key 
has been pressed, but unlike INPUT, 
the computer will not stop and wait for 
you. The program will carry on running 
instead. Some computers use a different 
word for INKEY$, so first check your 
computer's command and then try the 
exercises on this page. 


Try running this program using the correct 
command for your computer. When you 
press a key the computer prints that 
character, otherwise it prints an 
exclamation mark. 



These are some of the words used for 
INKEY$ on different computers. Check 
your manual or the conversion chart on 
page 47 for the command your computer 
understands. 


Now see if you can write a program to make 
your computer print the word HELLO when 
you press a key, and otherwise print a 
space as shown on the screen above. The 
program is similar to the one on the left. 


10 LET AS=INKEYS 
20 IF AS= ,,U THEN PRINT M !"5 
30 IF At<>"" THEN PRINT AS; 
40 GOTO 10 



Making the computer wait 


10 LET A*-INKEY*<50> 


10 LET N-0 

20 IF A*«““ THEN 


20 LET A*=INKEY* 

PRINT “ "» 


30 IF A*< >"" THEN GOTO 70 

30 IF A*<>"" THEN 


40 LET N-N+l 

PRINT A*| 


50 IF N<50 THEN GOTO 20 

40 GOTO 10 


60 PRINT ■ "1:60T0 10 

70 PRINT A*»:GOTO 10 



It is sometimes useful to make the computer wait a little before continuing with the 
program. In some versions of BASIC you have to put a number in brackets after INKEY$ as 
shown above left. This tells the computer how long to wait (in fractions of a second) before 
continuing. If your computer does not let you do this, you can still make it wait by putting 
INKEY$ inside a loop using GOTO as shown above right. 

High speed maths bugs 



Can you spot the bugs in this program and correct them to make the program run 
properly? The computer should select two numbers between 1 and 25 at random. You 
must add them together and press any key as soon as the right answer appears on the 
screen. 


10 CLS 

20 PRINT "PRESS ANY KEY WHEN YOU 
30 PRINT "SEE THE RIGHT ANSWER TO 
THE SUM" 

40 LET N-0 

50 LET X-INT<RND<l)+25+l> 

60 LET Y—INT(RND <1> *25+l) 

70 PRINT 

80 PRINT "XJ“ ♦ "IYl“ - " 

90 LET N-N+l 
100 PRINT N 
110 LET INKEY*-A* 


120 IF A*<>"" THEN GOTO 180 

130 FOR K-l TO lOOsNEXT K 

140 IF N<30 THEN GOTO 90 

150 PRINT “BAD LUCK. ANSWER IS "»X + 

160 FOR K=1 TO lOOO:NEXT T 

170 GOTO 30 

180 IF NOX+Y THEN GOTO 150 

190 PRINT “YES. THE ANSWER IS X+Y" 




















How to write a car crash game 


Following the steps below, see if you can write the 
program for this car crash game. The screen on the 
right shows what the game should look like. To display 
the car and the road on the screen, you can use PRINT 
TAB with a * for the car and! for each side of the road. 
The road zig-zags down the screen while you steer 
the car with two keys to stop it crashing into the road. 


Car- 


Sidesof 
the road 

L 



1 






You need four variables C, L, W and R to work out the TAB positions for the car and sides of 
the road. You might need to change the numbers given above to fit your screen. Clear the 
screen and set up these variables in the first five lines. 


2. Drawing the road 




L=L—1 
N=1 


Now make the computer 
display the road and car 
using PRINT TAB with a 
variable and symbol. Use 
GOTO to repeat the 
instructions and draw a long 
straight road. 


To make the road zig-zag you must insert some lines to 
change the value of L each time the PRINT TAB instructions 
are repeated. You must also make sure the road does not go 
off the screen. To do this, you need another variable (N). Set 
this to 1 if L <=1 and to 0 if L>=the width of your screen. 
Then tell the computer to add or subtract 1 from L 
depending on the value of N. 



3. Steering the car 


To steer the car you need an 
INKEY$ line. Then choose 
two keys (such as < and >) 
and add or subtract 1 from C 
depending on which key is 
pressed. If the program 
runs too fast for you to steer 
the car, add a delay loop. 


Finally you must check to 
see if the car has crashed 
into the sides of the road by 
comparing C with L and R. If 
there is a crash you must tell 
the player and start again. 


Can you make the 
road zig-zag in a 
random pattern? 


Can you 
invent a 
scoring 
system? 



































DATA puzzles 


One of the easiest ways of giving the computer large amounts of information is with 
the words READ and DATA. A DATA line contains a list of words or numbers and 
READ tells the computer to store the data in one or more variables. If you have a 
ZX81 (Timex 1000) you will not be able to run the programs on these two pages as 
your computer does not use these commands, but on page 24 there is an 
alternative method of stormg DATA using an array. 



Reading DATA 


10 FOR 1-1 TO 7 
20 READ X,X* 

30 PRINT X|" "I X* 

40 NEXT I 

30 DATA 13,FISHES,77,FROGS,91,SNAILS 
60 DATA 23,CATS,62,DOGS,2,NICE,1,RAT 

Some computers need data 
strings inside quotes. 

Runthis program to see how READ and 
DATA work. The word READ is followed by 
two variables and each time the loop 
repeats the computer stores the next pair of 
data items in the variables X and X$. 


Name check 


10 PRINT "NAME PL 
20 INPUT N$ 

30 READ Xt 

40 IF Xt-N» THEN GOTO 70 ' _ 

*30 IF X*-" ?" THEN PRINT "YOUR 
NAME ISN'T ON THE LIST"*STOP 
60 GOTO 30 

70 PRINT "0.K. YOUR NAME IS ON 
THE LIST" 



Restoring DATA 


In this program the computer asks your 
name and checks it against a list of names 
stored as data. Try putting your own data in 
line 80 (you can add as many names as you 
like) then put the last name in line 50 to tell 
the computer to stop the program after 
reading the last name in the list. 


* 10 for j= ? to ?>- 

* 20 FOR 1= ? TO ?>- 
30 READ NS 


l 


Make the J loop the length of the 
alphabet using character code 
numbers. 


1 40 IF LEFTS(NS,1)=CHRS<? ) THEN PRINT NS 
50 NEXT I 
60 RESTORE 
70 NEXT J 

80 DATA VERA, XAVIER,ZACHARY,HORACE,BIGGLES,BILL,BEN 
90 DATA TOPSY,TIM,POPEYE,JIM,HARRY,GEORGE,DELILAH 
100 DATA LOVEDAY,HONORA,SAMPSON,SAUL,TABITHA 


Make the I loop the same size as 
the number of data items. 


Can you complete this program to sort names into alphabetical order? The names are 
listed in DATA lines and RESTORE tells the computer to go back to the beginning of the 
data list each time the J loop is repeated. See if you can fill in the missing variables and 
numbers to run the program. 

Spot the bug puzzles 


1 


CM 

10 FOR K-l TO 6 


10 READ X 

20 READ N s PRINT N 


20 PRINT X 

30 NEXT K 


30 GOTO 10 

40 DATA 01-232,22-36-41,341-2241/2 


40 DATA 1,461,892,66,1471,4462,1,3 

30 DATA 97-24-11,47-29-01,236-4013 


30 DATA 33,80,241,90,371,823,33,13 


In this program a list of telephone 
numbers is stored in the data lines. Can you 
spot the bugs in the program, and correct 
them? 


If you cannot spot the bug in this program, 
try running it. The computer should print an 
error message to tell you what is wrong. 
Can you think of an easy way to solve this 
problem? 
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JOE'S CAFE 


1.99 FRENCH SNAIL STEW 
0.80 SAUSAGE SOUP 
1.10 PIGEON PIE 
0.99 MEAT BALL MASH 
0.05 LETTUCE LEAF 
0.60 ICE CREAM SODA 
0.87 PEANUT BUTTER PIZZA 
1.30 POPEYE’S SPINACH SPECIAL 
0.40 BARBECUED BREAD 
0.58 PEPPERMINT MILKSHAKE 



WELCOME TO JOE'S CAFE 
HOW MUCH CAN YOU SPEND 
? 0.75 

HERE’S WHAT YOU CAN EAT 

LETTUCE LEAF 
ICE CREAM SODA 
BARBECUED BREAD 
PEPPERMINT MILKSHAKE 


On the left above is the menu from Joe’s cafe. Using the prices and items on the menu as data, 
see if you can write a program which tells you what you can buy to eat for a certain amount of 
money, as shown in the screen on the right. You can also add some more items to the menu. 


Telephone directory 

Below there are instructions 
for writing a telephone 
directory program. The 
screens on the right show 
you a sample run. See if you 
can write the program. 


'Store the 
numbers in 
a string 
variable. 

Do you 
know why? 


1. Compile a list of your 
friends’ names and 
telephone numbers in 
DATA statements as shown 




r-^ 


r- 

WHOSE TELEPHONE NUMBER 


WHOSE TELEPHONE NUMBER 

DO YOU WANT ? 


DO YOU WANT ? 

TRUSTY ROBOT 


TBERNIE THE BUG 

RUSTY ROBOT*60-14-444 


NAME NOT LISTED 

DO YOU WANT ANOTHER 


DO YOU WANT ANOTHER 

. NUMBER* ? YES 


NUMBER: ? NO 

A 


L.___ Jk 


2. Use PRINT to make the 
computer ask whose 
number you want, and 
INPUT for your answer. 


3. Use READ to search for 
the name inside a loop. Use 
separate variables for the 
names and numbers. 



4. Print the name and 5. Make the computer ask if 6. Depending on the 

number (which should be you want another number. answer, RESTORE the data 

the next item of data), or Use INPUT for your answer. and go back to the 

indicate that the name is not beginning or stop the 


listed. 


program. 































Using arrays 

A useful way of storing data is in an array. You can think of an array as a set of 
variables with each item of data stored in a numbered compartment. The data 
items are called elements. You can refer to an element by using the array name 
and its compartment number which is called a subscript. 



Here is a numeric array called N. It contains six elements. You need to tell the computer 
how big an array will be so that it can put aside enough space in its memory. To do this you 
use the word DIM followed by the array name and the number of elements it contains. This 
is called dimensioning an array. 


#10 dim ? 

20 FOR K«1 TO 6 
30 READ N(K) 

40 NEXT K 
#30 DATA ? 


ForZX81 
(Timex 1000) 

#10 DIM? 

20 FOR K-l TO 6 
30 INPUT N(K) 

40 NEXT K 




To put data into an array you can use a loop 
with READ/DATA. See if you can complete 
the program on the left so it stores all the 
information in the picture above in an array. 
If you have a ZX81 (Timex 1000) try the 
program on the right which uses a series of 
INPUT statements to fill the array. 


Now try writing a program to print the data 
stored in the array on the screen. Use PRINT 
and a loop variable as the subscript of the 
array. On the screen on the right, the 
computer prints elements of the array at 
random using a random number as the 
subscript of the array. 


String arrays 



This is a string array (N$). It contains five 
names and so it has five elements. Unless 
you have a Sinclair (Timex) computer, you 
deal with string arrays in exactly the same 
way as numeric arrays. See if you can write 
a simple program to store the data in this 
array and then print the data on the screen. 



Sinclair (Timex) computers 

ARRAY A$ 

1 CAT 

2 FISH 

3 ELEPHANT 

4 RAT 

5 DONKEY 

Sinclair (Timex) computers 
hold each string in a 
separate row of an array and put each 
character of a string into a separate 
element. To dimension an array you must 
tell the computer how many strings (rows) 
there are and the number of characters 
(elements) in the longest string. Put both 
numbers in brackets as shown above. The 
computer makes all the rows the same 
length by adding spaces to the other 
strings. 




































Dimension the arrays. 


Calendar calculator 


* > 0 ?]- 

20 FOR K-l TO 12 
♦ 30 ?]- 


READ the data into two arrays 
M$and D. 


40 NEXT K 

so print -month number "i Fill in the missing subscripts to 
60 input n print the correct data from the 


♦ 70 PRINT Mt( ?>|" HAS "|*1 

♦ 80 PRINT D( ? )» " DAYS” J 

i 90 DATA? 

100 DATA? ■ 

110 DATA? 


arrays. 

Put the name of each month 
followed by its number of days 
in data statements in these 
lines. 


Can you complete this program so that when you type in the 
number of a month, the computer prints its name and the 
number of days it has? There are some hints alongside the 
program to help you. 



Now alter the program so 
that the computer asks for 
the name of a month, then 
tells you the number of days 
in it. Use a loop and IF/THEN 
to search through M$ for the 
name of the month. Use the 
loop variable as the 
subscript to pick the right 



Make your mind up program 


PICK A NUMBER FROM 1 TO 10 
? 9 

WHY DON'T YOU STAND ON YOUR HEAD 
O.K. ? NO 

PICK A NUMBER FROM 1 TO 10 
? 3 

WHY DON'T YOU FEED THE CAT 
O.K. ? YES 


Here is an idea for a program that could be 
very useful when you cannot decide what to 
do. To run the program you pick a number 
and the computer prints a suggestion on the 
screen. 


To write the program you need a string 
array (1$) filled with ten ideas. INPUT a 
number into a variable (N) and make the 
computer pick one of the data items by 
using N as the subscript of 1$. 


Twenty questions 


HOW MANY LEGS DOES A 
CENTIPEDE HAVE ? 

7 100 
CORRECT 


HOW MANY PLAYERS 
IN A FOOTBALL TEAM ? 
7 10 

NO STUPID. 

THE ANSWER IS 11. 


This screen shows the 
output from a quiz game. To 
write the program, work out 
20 questions and put them in 
a string array. Then put the 
answers in another array. 
The subscripts of the two 
arrays should link the 
questions with their 
answers. 


Random number chart 


10 LET N-0 
20 DIM A<10) 

30 FOR K-l TO 
40 LET A(K)—0 
30 NEXT K 
60 LET R-INT(RND(1)*10+1) 
70 LET A(R)—A <R)+1 
80 LET N-N+l 

90 IF N<100 THEN GOTO 60 


This program uses an array to store the data for a chart. The 
computer picks 100 numbers from 1 to 10 at random. Each 
element of the array (A) keeps count of the number of times 
each number is picked. See if you can add to the program to 
make the computer print out a chart like the one above 
which prints one star for each number selected. To do this 
write a loop that repeats 10 times with another loop inside it. 
The nested loop should print one line of the chart at a time. 
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Writing subroutines 

A subroutine is a section of a program 
for carrying out a particular task which 
is usually used several times during the 
program. The word GOSUB, followed 
by the number of the first line of the 
subroutine tells the computer to jump to 
the subroutine. The computer works 
through the subroutine until it meets the 
word RETURN. This sends it back to the 
main program starting at the instruction 
after the word GOSUB. 



lO PRINT "HELLO 
20 GOSUB 1010 
30 PRINT "HELLO AGAIN 
40 GOSUB 1010 

50 PRINT "AND WHAT IS THIS ?“ 

60 GOSUB 2020 
70 STOP 

1010 PRINT "THIS IS A SUBROUTINE" 
1020 RETURN 

2020 PRINT "ANOTHER SUBROUTINE" 
2030 RETURN 



The table above left shows the results of a survey to find the most popular of six new ice 
cream flavours. Can you write a program to display this inf onnation as shown on the screen 
on the right? Use a loop to read the data into two anays and, within the loop, send the 
computer to a subroutine to print one line of the chart at a time. 


Sinkthesub 

The program below is for a game called “Sink the Sub". Hidden somewhere on an 
imaginary 10 x 10 grid is an alien submarine. The computer chooses its position by picking 
two random numbers which work as co-ordinates to pin-point its position on the grid. You 
have four chances to find the sub by guessing the co-ordinates X (across) and Y (up). If 
your guess is wrong, the computer jumps to a subroutine which tells you which direction to 
try next time. Before you can run the program, you must write the subroutine. 


10 CLS 
20 LET N=0 

30 LET X=INT<RND<1>*10+1> 

40 LET Y=INT(RND(1)*10+1) 

50 LET N=N+1 

60 PRINT "GUESS "JNJ" "* 

70 INPUT A,B 

80 IF A=X AND B=Y THEN GOTO 170 

90 GOSUB 200 
lOO PRINT 

110 IF N<«4 THEN GOTO 50 


130 PRINT "DO YOU WANT TO PLAY AGAIN" 

140 INPUT R4 

150 IF LEFT•(R4,1)*“Y“ THEN GOTO 10 
160 STOP 

170 PRINT "YOU HIT THE SUB IN "»N;" GOES" 
180 GOTO 130 

Sample run 


> You could 






















I drawagrid ^ 











1 likethisto r 

\ help you 

f locate the 

[ submarine / 

V when you \ 

/ play the < 























































( game. 











0,0 












Writing the subroutine 

You need several IF/THEN lines to compare 
your guess (A,B) with the sub’s location 
(X,Y) and print a message on the screen. 

For instance, if B is less than Y, then you 
should try North, if A is less than X, then try 
East and so on. 
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r - 1 r - r 

GUESS 1 ?3,2 1 f GUESS 2 73,3 

YOU MISSED YOU MISSED 

TRY NORTH EAST i 1 TRY EAST_ ^ 


GUESS 3 75,3 
YOU MISSED 
TRY WEST 


] 












































Fruit machine program to write 


Can you write a program to make your computer work 
like a fruit machine? The screen on the right shows a 
sample run. You start with 10 tokens and it costs one 
token each time you play. Press any key to start and 
the computer prints the names of three "fruits" which 
are picked at random. Try following the instructions 
numbered below to help you write the program. 


YOU HAVE 10 TOKENS 
PRESS ANY KEY TO PLAYsP 

BELL BELL LEMON 
2 BELLS 

YOU WIN 2 TOKENS 

NOW YOU HAVE 11 TOKENS 

PRESS ANY KEY TO PLAY:B 



1. First dimension an array 
F$ to hold the names of the 
six “fruits” shown above 
(lemon, cherries, plum, 
melon, grapes and bell). 
Store this data in F$ using 
READ/DATA (or INPUT). 


2. Clear the screen and 
introduce a variable T to 
keep count out of the 
number of tokens. Give it an 
initial value of 10 and tell the 
player how many tokens 
there are. 


3. Use INKEY$ to make the 
computer wait for the player 
to press any key to start. 
Subtract 1 from T (it costs 
one token to play) and clear 
the screen again. 



4. Make the computer pick a random 
number between one and six and store it in 
R. Use R as the subscript of F$ to select a 
fruit and store it in a variable AS. Repeat 
these instructions twice more to select two 
more fruits and store them in B$ and C$. 


T = 0 I--1 T = 1 



6. Check to see that the player has at least 
one token left. If there are none (T= 0)then 
stop the program. Otherwise, send the 
computer back for another game. 



30FAKIND: 

WIN 5TOKENS 


20FAKIND: 

WIN 2TOKENS 


5. Next you must print the fruits on the 
screen and make the computer work out 
whether you have won anything or not. 
There are three ways to win as shown in the 
pictures above. For each type of win, send 
the computer to a different subroutine to 
print a suitable message and adjust the 
value ofT. 



7. If you use READ at the beginning of the 
program, remember to write the DATA 
lines. Add these to the end of the program. 
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DARKAND 
DINGY 


P 


GREYAND 
GHOSTLY 


1 COLDAND 
CREEPY 


a_ 

<wd 17 


Chewing 

gum 


How to write a treasure hunt program 

On the next few pages there are step by step guidelines to writing a treasure hunt 
game in which you have to move through a maze of seven rooms collecting 
treasure. The program is fairly complicated so follow the directions carefully and 
test each stage as you go. If you get stuck on one part of the program you could look 
up the answer for that section, then 
continue with the rest of the program. 

In order to write the program you need a 
good idea of how to play the game so read 
this section before you start. 

How to play 

The map on the right shows the maze of 
seven rooms. Each has a different 
description and contains a box full of 
treasure. The information shown on this 
map is stored in the computer’s memory 
but the map is not shown on the screen. 

This means that you have to work out the 
location of each room on this map as you 
play the game. Starting in a room selected 
at random, the object of the game is to get 
all the treasure into one room in a limited 
number of moves. 


SPOOKY 
AND SCARY. 


- 

7\ 

Sand¬ 


wiches 



4 FOULAND 
FOGGY 


& 


6 HAUNT 
AND 

HORRIBLE 


EMPTY AND 


1 . eerie 


n 


Jewels / p °Kof 

/ honey \y 


J 


THESE ARE THE WORDS THE COMPUTER UNDERSTANDS 

N,E,S,W : MOVE NORTH/EAST/SOUTH OR WEST 
GRAB i PICK UP TREASURE 

PUT s PUT DOWN TREASURE 

LOCATE : PRINTS CURRENT LOCATION OF TREASURE 
HELP s TELLS YOU HOW TO PLAY THE GAME 

kfc_____ 

The screen above shows the commands you can use to play 
the game and what they mean. You can only input one 
command each move so you cannot afford to make 
mistakes. 





To make your task harder 
you are only allowed to 
carry one box of treasure at 
a time. 
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Writing the program 

The diagram on the right is a flow chart. It shows the 
structure of the program with each main step shown in 
order going from top to bottom. The instructions below and 
on the next few pages will guide you through each stage. Do 
not worry if you are told to jump to different parts of the 
program out of sequence. If you follow the line numbering 
suggested, you can be sure of assembling the program in 
the correct order. 

1 Setting up arrays and reading data (lines 100-250) 

You need to put all the information shown 

on the map on the opposite page into the _ 

computer’s memory. To do this, store it in a 
number of arrays. 


N, E,S,W arrays 

First you need four arrays called N, E, S 
and W. The data in these arrays tells the 
computer which room is to the North, East, 
South and West of each room in the maze. 
Dimension these arrays in the first line 
(100)*. Each has seven elements. 


0 means there is 
no room in that 
direction. For 
instance, there is 
no room West of 
room 1 or North 
of room 2. 




_ SUBROUTINES 

| MOVE | | PUT | HELP 

| GRAB | j LOCATE 


Make a chart like this to work out the data. 
The numbers down the side are the 
subscripts of the arrays and represent the 
numbers of the rooms. For each line of the 
chart, look at the room map and fill in the 


number of the room to the North, East, South 
and West of the rooms listed down the side 
of the chart. The first two lines have been l 
done for you. 

^AddTdear^ 
screen < 

command^ 



Reading the data 


110 FOR K=1 TO 7 

120 READ N(K),E(K), S (K),W(K) 

130 NEXT K 

2000 DATA 2,7,6,0 


If you have a ZX81 (Timex 
1000) you will need to use a 
separate INPUT 
statementfor each array. 


Next you need a loop like the one above to read the data into the arrays. Use the chart to put 
the data into seven DATA lines. The first one is shown above. 


If you have a ZX81 (Timex 1000) you can only dimension one array per line, so start at line 10. 























Next you need an array called D$ to hold the room descriptions. Dimension it at the 
beginning of the program and write the data as shown above using the map descriptions. 


T$andT arrays 

Now you need two more arrays. T$ to hold 
the names of the treasure and T which tells 
you where each treasure is. The number 
stored in each compartment in T is the 
number of the room where the treasure in 
the same compartment in T$ is stored. For 
example at the start of the game, T(2) is 2 
and this is the room where treasure T$(2) is 
stored (the chewing gum). During the game 
the numbers in T change as the boxes of 
treasure are moved. 

Dimension these arrays, write 
the DATA lines as shown on the 
right and read the data into both - 
^ay s wjthth^a me Jpou 



2200 DATA GOLD,1,CHEWING GUM,2 
2210 DATA SANDWICHES,3,RUBBISH,4 


m_ 

_1 F 1_1 WX Y- 

Number of moves 
player has made. 

Shows whether the 
player is carrying 
anything. 

A “flag” variable. You 
will find out how this 
works later. 

Variables to hold 
temporary data. 


Starting at line 300, give each of these variables an initial value of 0. 
2 Help subroutine (lines looo- 1120) 


[ 


THERE ARE 7 ROOMS IN THE MAZE 
AND THERE IS A BOX OF TREASURE 
IN EACH ONE. YOU MUST GET ALL 
THE TREASURE INTO THE SAME ROOM. 


] 


Next you need a subroutine to explain the rules 
of the game. Put a GOSUB command at line 300 
and start the subroutine at line 1000. Print the 
instructions shown on the screen (left) and the 
commands the computer understands (page 
28). 


3 Select a room at random (line350) 

The number of the room the player is in is stored in a variable R. To choose a room for the 
player to start in, make the computer pick a random number between 1 and 7 and store it in 
R at line 350. 

4 Identifying the room and contents (lines 400-470) 


YOU ARE IN ROOM 7 
IT IS SPOOKY AND SCARY 
IT CONTAINS : COINS 


A k 


YOU ARE IN ROOM 4 
IT IS FOUL AND FOGGY 
IT CONTAINS : NOTHING 


YOU ARE IN ROOM 1 
IT IS COLD AND CREEPY 
IT CONTAINS s GOLD 


First of all tell the player what room he is in. Then describe the room using R as the 
subscript of D$. The screens above show what your screen should look like. 


30 





Identifying the contents of the room 


430 FOR K=1 TO 7 

440 IF T(K)=R THEN PRINT T*<K>: 

LET F=1 

450 NEXT K 

460 IF F=0 THEN PRINT "NOTHING" 
470 LET F=0 



To find the contents of room R you have to search through array T which stores the number 
of the room in which each box of treasure is located. To do this you can use a loop as shown 
above. The IF/THEN line searches to see whether any of the numbers in T match the room 
number R. If the numbers match, the computer prints the name of the box of treasure and 
sets the variable F to 1. 

5 Player's input (lines500-560) 



The F variable tells the computer 
whether there is any treasure in the 
room after it has come out of the loop. It 
works a bit like a flag. When the IF/ 
THEN line is true, the flag goes up (i.e. F 
is 1) but if it is not true then F stays at 0. 
Remember to set it back to 0 at line 470 
as you will use it again. 


6 Move subroutine 

(lines 1200-1260) 

Try writing the move subroutine 
using this flow chart to help you. 

1. To move, the player types N, E, 
S or W, so check which one was 
typed using four IF/THEN lines. 

2 . To find the new room number, 
use R as the subscript of the 
relevant array (N, E, S or W) and 
store it in a temporary variable X. 

3. Then you must test X to make 
sure that the player can move in 
that direction. If X is 0 then there is 
no room in that direction, so you 
should print a message and use 
GOTO to send the computer to 
the RETURN instruction at the end 
of the subroutine. 

4. If X is not 0, then you should put 
the new room number into R by 
making R equal to X. 

5. Put RETURN at the end of the 
subroutine. 



Next ask the player what he wants to do 
followed by an INPUT line which lets the 
player type a command (such as GRAB, 

PUT etc.) into a variable A$. Check the 
player’s input by writing five GOSUB lines 
which will send the computer to a different 
subroutine for each command. Fill in the line 
numbers when you have worked out where 
the subroutines come in the program. 


v YES 

LET 


■ 

X*N(R) 




«a 

LET 


mm 

X-£(R) 


■ 







mmm 

T 


LET 


Ml 

X*W(R) 



-<-1 












7 Grab subroutine (lines 1300-1380) 



1. The player can only carry one box of 


treasure at a time, so first check whether the 
player is carrying anything. To do this, test 
the value of variable C, which is set to 1 
when the player picks up treasure. If C is 1, 
print a message and send the computer to 
RETURN. 



2. To check whether there is any treasure in 
the room, write a loop using IF/THEN to 


search through the T array. If a number in T 
equals the room number (R), then you 
should store the T subscript number 
(represented by K) in a temporary variable 
called Y. As the computer runs through the 
loop it may find that several numbers equal 
R. In this case, Y will contain the subscript of 
the last of these T numbers when the 
computer has finished the loop. 



3. If Y is 0, then there is no treasure in the room so you should send the computer to 
RETURN. Otherwise the subscript number stored in Y tells the computer which box of 
treasure to pick up. Change the value of T(Y) to 999, a number that shows it is beingcarried. 
Set C to 1 and Y back to 0 and put RETURN at the end of the subroutine. 


I Put subroutine 


1. First you must 
check whether 
* the player is 
carrying 
, anything by 
testing the valueS 
of C. 


LOOP \ 


(lines 1400- < 
1460) 


'iSTHr 
PLAYER 
CARRYING 
MYTHINGJ, 

F0RKAVT07 

'DOES' 
sl(K)=999Js 

I NO 


YES 


>*L 

NOTHING 

TO PUT 

DOWN 

V 

t 

V 



\ 

YES 

CHANGE ^ 

T(K) TO EQUAL 

R 

J 


ITs 


( 2. Find which box of 'N 

ADJUST VALUE 

\ treasure is being carried / 

OF C 


array. 



3. If T(K) is 999 
change its value 
to equal the room 
•number (R)and 
set C to 0 again 
to show the player 
is not carrying 
anything. 


4. Add PRINT lines to 
the routine where you 
think they are needed 
and put a RETURN 
command atthe end. 











9 Locate subroutine (lines 1500-1590) 


This routine gives the player the current location of each box of treasure. See if you can 
write the program for it from the output shown on the two screens below. Plan it out in a flow 
chart first. 


YOU ARE CARRYING s 
CONTENTS OF ROOMS: 
2:CKi:MING GUM 
3:SANDWICHES 
4:RUBBISH 
7:POTS OF HONEY 
6:JEWELS 
7:COINS 


YOU ARE CARRYING : 
CONTENTS OF ROOMS 
7:GOLD 

7:CHEWING GUM 
7:SANDWICHES 
7:RUBBISH 
7:POTS OF HONEY 
6:JEWELS 
7:COINS 



First test the value of C to find out whether the player is carrying anything. If he is, send the 
computer through a loop to find the element in array T that equals 999, then print the name 
of the box of treasure being carried by selecting the element of array T$ with the same 
subscript. To print the contents of the rooms, you need another loop which prints their 
current locations except the box being carried (if there is one). 

10 Count the player's 111s all the treasure in the same room? 
moves (line600) (lines610-690) 


MOVfS 




T(5) doesn't 
equal W so 
the flag ) 
goes up / 
andF=1. ) 


rff ?fi 7f7Sf77H7 


The player wins the game if he has moved all the treasure 
into the same room. You can work this out by testing the 
numbers stored in array T because they will all be the same 
when the treasure is in the same room. To do this, take one 
element of T, T( 1) for example, and store it in a temporary 


At line 600, add 1 to the element of T, T( 1) for example, and store it in a tempo] 

variable M to keep count of variable called W. Then compare it with all the other 


the number of moves the 
player uses. 


numbers stored in T, one by one inside a loop. Use a flag 
variable to indicate whether they are all the same or not. 


12 Has the player used up 
all his moves? (lines700-750)‘ 




Decide how many moves the player should 
be allowed. If M is greater than this number 
then the player loses the game. If this is the 
case, print a message and stop the 
program. 


13 Has the player changed 
location? (lines800-850) 

r YOU ARE STILL IN ROOM 7 
WHAT DO YOU WANT TO DO ? 


If the player typed N, E, S or W into A$ at the 
INPUT line, send the player back to line 400 
to identify the new room and its contents. 
Otherwise, remind him of his location and 
send the computer back to the INPUT line 
(500). 33 





Program answers 

On the next few pages you will find all the answers to the puzzles and projects in this 
book. The programs are written in a standard BASIC, so you may have to convert 
some of the non-standard commands, such as RND and CLS to suit your computer. If 
one of the programs listed here does not work, first check that your computer uses 
all the BASIC words in that program. There is a conversion chart on page 47 to help 
you. Program lines which need major alterations for Sinclair (Timex) computers are 
marked with A and the alternative lines are given nearby. Lines which need 
changing only on the ZX81 (Timex 1000) are marked ▲ 

For some of the puzzles you may find that the program you have written is 
different from the one in the answers. This does not matter so long as your program 
runs correctly. Study the answer, though, and make sure your program is asshort 
and neat as possible. 


Getting to know BASIC (pages 4-5) 

Simple program puzzles 

1 40 PRINT "HELLO 
30 PRINT A* 

The semicolon makes the computer stay on the 
same line to print AS. 

2 40 PRINT "HELLO”.A* 

so Delete this line. 

The comma makes the computer leave some 
spaces before printing AS. 

2 40 PRINT TAB <6) J "HELLO "1 A* 

30 Delete this line. 

Some computers do not need a semicolon after 
TAB. 

4 40 PRINT ” GOODBYE" 

^ 50 PRINT " "»A* 

Variable puzzles (pages 6-7) 

Choosing variable names 

These names contain BASIC words and cannot 
be used as variable names: LETTERS (LET); 
RUNS(RUN). The ZX81 (Timex 1000) will only 
accept one letter string variable names, so you 
cannot use FLEAS on that computer either. 

PRINT puzzle 

10 LET A=66 
20 LET B=77 

▲ 30 LET RR*="RUSTY ROBOTS" 

40 PRINT AJ" ";RRS;" ATE" 

50 PRINT B;" SINGED SAUSAGES" 

A space inside quotation marks makes the 
computer print a space. 

Looking inside a program 

45 PRINT "C IS "SC 
55 PRINT "D IS "SD 

Centigrade to Farenheit 

40 LET C=9/B 
50 LET D=C*A 
60 LET R=D+F 

Change lines 40-60 as shown above. 


Program writing puzzles 

1 10 LET U4="UG" 

X 20 PRINT "WHAT IS YOUR WORD " 

30 INPUT W* 

40 PRINT "THE UGLIAN WORD IS "5 
50 PRINT U*SW* 

Line 50 makes the computer print UG followed 
by the word stored in W$. 

2 lo PRINT "WHAT IS THE DISTANCE "S 

° 20 INPUT D 

30 PRINT "HOW LONG DID YOU TAKE "S 
40 INPUT T 

50 LET S=D/T 

60 PRINT "YOUR SPEED WAS "SS; 

70 PRINT " MILES PER HOUR" 

At line 50 the computer calculates the speed and 
stores it in S.* 

O to LET A=30 

° 20 LET B=20 

30 LET S=35 

40 LET T=S/B 

50 LET C=A*T 

60 LET D-C+S 

70 PRINT "THEY MUST BUY "S 
80 PRINT D»“ SAUSAGES." 

90 PRINT "IT WILL TAKE THEM "J 
100 PRINT TJ" HOURS" 

A and B are the sausages the robots can eat in an 
hour. S is the sausages Robot 2 wants to eat and T 
is the time Robot 2 takes to eat his sausages (S). 
Line 50 works out the number of sausages Robot 
1 eats in that time (T) and D is the total number of 
sausages. 

Repeating things (pages 8-9) 

Loop puzzles 

1 10 FOR J=1 TO lOO 

20 PRINT "HELLO "J 
30 NEXT J 

The semicolon in line 30 makes the computer 
stay on the same line to print the next word. 

O lO FOR J=1 TO 25 
U 20 PRINT TAB(15)i"HELLO" 

30 NEXT J 

This makes the computer print a column of 25 
HELLOs, 15 spaces from the left of the screen. 


*On some computers (e.g. Vic 20 and Pet) leave out the semicolon at the end of PRINT lines before 
INPUT. 



3 Line 20 is wrong because it interferes with the 
loop counter, I. Each time the loop goes round, 
line 20 changes the value of I from 1 to 0. 

Step puzzles 

1 lO FOR 1=25 TO 1 STEP-1 
20 PRINT TAB(I);"HELLO" 

30 NEXT I 

Use the loop variable (I) as the TAB number. 
Make sure I is not bigger than the width of your 
screen. Each time the loop repeats, I decreases 
by 1. 

2 to FOR L=5 TO O STEP-1 

20 PRINT TAB(5)iL» TAB(10);L*L 
30 NEXT L 


Bugs in loops 

Lines 50 and 70 are wrong and should read like 
this: 

50 NEXT k 
70 NEXT I 

Binary counter 

To make a program that counts in eight-figure 
numbers you need four more loops (E, F, G, H). 
You will need to renumber the program and alter 
the PRINT lines like this: 

PRINT H+G*2«-F*4+E*8*D* 16*C*32+B*64* 
A*128;" - 

print a;b;C;D;E;f;g;h 

Flashing message 


Step -1 makes the loop variable (L) count 
backwards from 5 to 0. Each time the loop 
repeats, line 20 prints the value of L and then 
squares it. 

3 10 PRINT "START "J 

20 INPUT A 
30 PRINT "STOP "5 
40 INPUT B 
50 PRINT "STEP "* 

60 INPUT C 

70 FOR J=A TO B STEP C 
80 PRINT j;" 

90 NEXT J 

The loop in lines 70-90 uses A to set the initial 
value of the loop variable, B to set the final value 
and C for the step. 

Secret message 

10 PRINT "SECRET MESSAGE" 

20 PRINT "MEMORIZE IN 5 SECONDS" 

30 PRINT "THEN IT WILL DISAPPEAR" 

40 PRINT 

50 PRINT "MEET AGENT X. 2.00 AIRPORT" 

70 NEXT 1 ! 1 T ° 1000 J— Delay loop 
80 cls -Clears screen 

Pattern puzzles 

2 50 PRINT TAB(A-k); 

U 60 PRINT TAB(A+K)* 

70 NEXT K 

A is the top of the triangle. To print the left side 
you subtract K from A and to print the right you 
add K to A. 

3 30 Delete this line. 

40 FOR K=9 TO 1 STEP-1 
80 PRINT TAB(A);"*" 

Change these lines to print the shape upside 
down. To make the other patterns shown on 
page 9 use the same program with different TAB 
positions. 

Loop puzzles (pages 10-11) 

Loop to make program run more slowly 


10 FOR J=1 TO 10 
20 CLS 

30 FOR K=1 TO lOOO:NEXT K 
40 PRINT TAB(lO)S"DANGER" 

50 PRINT TAB<7>;"SPACE ATTACK" 
60 FOR K=1 TO 1000:NEXT K 
70 NEXT J 


Here is a program to print a flashing message. 
You may need to change the size of the delay 
loop and alter the TAB positions to suit your 
screen. If your computer does not accept 
multistatement lines, put the NEXT K command 
on a new line. 

Minutes_ 

Computer clock loop 

lO FOR J=0 TO 59 - 

20 FOR K=0 TO 59 - 

30 print j; ; k Seconds 

40 FOR L=1 TO 500:NEXT L ‘1000 
50 CLS y 

60 NEXT K — ■ 

70 NEXT J - 

Set the K loop to make a delay of one second. 


Rocket lift off 

10 CLS 

A 20 FOR 1=1 
30 PRIK’ 

40 NEXT I 
50 PRINT " 
60 PRINT " 
70 PRINT " 
80 PRINT “ 
90 PRINT " 
I'M. FOR J=1 

A 110 PRINT 
120 FOR K=1 
130 NEXT K 
140 NEXT J 


TO 20 


TO 25 

TO 1000 “ l_ Delay loop 


-c 


The loop in lines 20-40 makes the computer print 
empty lines so the rocket is printed at the bottom 
of the screen. Lines 50-90 print the rocket shape. 
You should make the loop in lines 100-140 repeat 
as many times as the number of rows on your 
screen. Each time the loop repeats, the 
computer prints an empty line and the rocket 
moves one line up the screen. 


You could add this nested loop at line 45 or line 
55. 

45 FOR K=1 TO lOOO 
48 NEXT K 


Sinclair (Timex) changes 

To run the program on the Spectrum (Timex 
2000), press ENTER when the scroll message 
appears on the screen. 

A For the ZX81 (Timex 1000), change these lines: 

20 FOR 1=1 TO 17 

| 110 SCROLL_ 






Jumping man program 

10 FOR J=1 TO 25 STEP 2 
20 CLS 
30 PRINT 

40 PRINT TAB(J>5" O M 
50 PRINT TAB(J)•"<0>" 

60 PRINT TAB(J)i"/ V 
70 FOR K=1 TO lOOO 
80 NEXT K 
90 CLS 

IOO PRINT TAB<J>1)$"<0> M 
110 PRINT TABtJ+l);" O " 

120 PRINT TAB(J+1>;"/ \“ 

130 FOR K-l TO lOOO 
140 NEXT K 
150 NEXT J 

You should make the loop from lines 10-150 run 
as many times as the number of characters that fit 
across your screen. Lines 40-60 print the man in 
the first position. Lines 70-80 and 130-140 are 
delay loops to make the man stay on the screen a 
moment. Lines 100-120 print the man in the 
second position. 

IF/THEN exercises (pages 12-13) 

Tables tester 

55 IF BOJ*A THEN PRINT "WRONG. 
j;" X ";A; H = M ;J*A 

Add this line to make the computer tell you when 
your answer is wrong. 

Password 

50 IF P%‘:S% THEN PRINT "WRONG. 

THICK HEAD" 

60 IF P*=S* THEN PRINT "O.K. CONTINUE" 

Add these lines (with your own message) to 
complete the password program. 

10 LET S4="SAUSAGES" 

20 LET N=007 

30 PRINT "PASSWORD PLEASE "J 
40 INPUT P* 

50 PRINT "SECRET NUMBER "5 
60 INPUT SN 

70 IF P$OS$ OR SNON THEN PRINT 
"WRONG. THICK HEAD" 

80 IF P*=S* AND SN=N THEN PRINT 
"O.K. CONTINUE" 

Change the password program like this to make 
the computer ask you for a secret number as 
well. 

Computer calculator 

10 PRINT "THINK OF A NUMBER "{ 

20 INPUT X 

30 PRINT "AND ANOTHER 
40 INPUT Y 

50 PRINT "DO YOU WANT TO 
60 PRINT "ADD, SUBTRACT. DIVIDE" 

70 PRINT "OR MULTIPLY ?" 

80 INPUT A* 

90 IF A*="ADD" THEN LET A=X*Y 
100 IF AS="SUBTRACT" THEN LET A=X-Y 
110 IF AS="DIVIDE" THEN LET A=X/Y 
120 IF A*="MULTIPLY" THEN LET A=X*Y 
130 PRINT "THE ANSWER IS "5 A 

36 The computer carries out a different sum 
depending on the answer you input for AS. 


Guessing games 

45 IF Y< X THEN PRINT "TOO SMALL" 

46 IF Y>X THEN PRINT "TOO BIG" 

Add these lines to make the computer tell you 
when your guess is too big or too small. 

5 LET N=0 

55 LET N=N+1 

56 IF N>5 THEN STOP 

Add these lines to count the number of guesses 
and stop the program after five. 

Word game 


10 

PRINT 

"WORD PLEASE 


20 

INPUT 

W« 


30 

PRINT 

"CLUE PLEASE 

"I 

40 

INPUT 

C* 


50 

60 

CLS 

PRINT 

"CLUE 


70 

PRINT 

C* 


80 

PRINT 

"GUESS THE WORD" 

90 

INPUT 

Gt 


100 

IF G%- 

=W* THEN GOTO 

130 

110 

PRINT 

"NO" 


120 

GOTO 90 


130 

PRINT 

"YES" 



Lines 10-40 make the computer ask for a word 
and clue. 

Lines 50-60 clear the screen and print the clue. 

Line 120 sends the computer back to line 90 for 
another guess. 

Horserace 

Here are the completed IF THEN lines for the 
Horse race game. 

80 IF G1*H1 AND G2=H2 THEN GOTO 160 
90 IF G1=H2 OR G2=H1 THEN GOTO 150 
IOO IF <G1=H1 AND G2<>H2) OR <G2=H2 
AND GlOHl) THEN GOTO 140 
120 IF N=4 THEN GOTO 170 

Line 80: You should send the computer to line 160 
if both guesses are correct. 

Line 90: If the horse is correct but the place is 
wrong, send the computer to line 150. 

Line 100: If one guess is correct go to line 140. 

Line 120: After four guesses, send the computer 
to line 170. 

Ideasto improve the game 

15 LET S-0 

140 PRINT "ONE CORRECT GUESS":LET 
S*2:GOTO 120 

160 PRINT "CORRECT:LET S=4 
180 PRINT "YOUR SCORE IS "JS 

Here is an idea for a scoring system that gives 
four points for guessing both horses and two 
points for one horse correct. Variable S holds the 
score. 

190 PRINT "DO YOU WANT ANOTHER GO ? (Y/N)" 
200 INPUT 2 % 

210 IF Z*="Y" THEN GOTO 10 
220 IF Z*="N" THEN STOP 

To give the player the choice of running the 
program again, add these lines. 


Random numbers (pages 14-15) 

Random number between 10 and 20 

INT(RND(1)*11+10) 

To do this, multiply by the number of figures in 
the range (11), then add the first number in the 
range (10). Use your computer’s RND command. 

Program puzzle 

20 LET X=INT(RND(1)*20+l) 

Change line 20 of the number guessing game to 
make the computer pick a random number 
between 1 and 20. 

Number sequence 

Add these lines to the program for the number 
sequence game. 

5 PRINT "GUESS THE NEXT NUMBER" 

7 PRINT "IN THIS SEQUENCE" 

10 LET X—INT(RND <1)*10+1) 

20 LET Y= INT(RND(I)*10+1) 

60 LET A=X+4*Y 
70 INPUT N 

80 IF N=A THEN PRINT "CORRECT" 

90 IF NOA THEN PRINT "WRONG. IT’S "5 A 
lOO GOTO 5 

Line 60 works out the next number in the 
sequence. 


Random sequence 

24 LET R=INT(RND(1)*3+1) 

25 IF R=1 THEN GOTO 30 

26 IF R=2 THEN GOTO 40 

27 IF R=3 THEN GOTO 50 

To select a sequence at random make the 
computer pick a random number between 1 and 
3 and store it in R. Send the computer to a 
different sequence depending on the value of R. 

30 FOR 1=1 TO 3 
33 PRINT X+I*I 
35 NEXT I 
37 LET A=X+4*4 

39 GOTO 70 

40 FOR 1=1 TO 3 
43 PRINT I * I-Y 
45 NEXT I 

47 LET A= 4*4-Y 

49 GOTO 70 

50 FOR 1=1 TO 3 
53 PRINT X+Y-I * I 
55 NEXT I 

57 LET A=X+Y-4*4 

To add three different number sequences to the 
program, delete lines 30-60 and add a separate 
loop for each sequence. At the end of the first 
two sequences, send the computer to line 70. 


Escape from Zorgos 


10 LET C=10 3 ■ ■ 

20 PRINT "YOU HAVE "SC;" CHIPS" 

30 PRINT "PLACE YOUR BET 
40 INPUT B 

50 IF B>C THEN PRINT "YOU HAVEN’T GOT ]- 

THAT MANY CHIPS":GOTO 20 
60 LET C-C-B] 

70 LET X =INT(RND(1)»6»1)1 
80 LET Y=INT(RND(1> *6+1)J 
90 PRINT "PRESS P TO THROW :"J 
100 INPUT P% 

llO IF PtO-P" THEN GOTO 90 3 
120 PRINT tab(5);x;tab(10);y > 

130 IF X=Y THEN GOTO 250 —I 

140 IF X+Y=10 OR X+Y=11 THEN GOTO 210 

150 IF X +Y=6 OR X + Y=7 THEN GOTO 190 f 

160 PRINT "SORRY. YOU LOST YOUR BET" 

170 IF C=0 THEN GOTO 290 3 

180 GOTO 20 3-1 

190 PRINT "NO CHANGE. YOU KEEP YOUR BET" L 
200 LET C=C+B:GOTO 20 3-— 

210 PRINT "WELL DONE. YOU TRIPLED YOUR BET" 
220 LET C=C+ <B*3) 

230 IF C>=50 THEN GOTO 3203- 

240 GOTO 20 

250 PRINT "YOU DOUBLED YOUR BET" 

260 LET C=C+(B*2) 

270 IF 0=50 THEN GOTO 320 
280 GOTO 20 

290 PRINT "SORRY. YOU’RE OUT OF CHIPS" 

300 PRINT "THERE’S NO ESCAPE FROM ZORGOS" 
310 STOP 

320 PRINT "WELL DONE. NOW YOU CAN ESCAPE" 
330 PRINT "FROM ZORGOS WITH ";C?" CHIPS" 


C keeps count of number of chips. 

Make sure player’s bet is not more than 
the number of chips. 

Work out how many chips are left. 

Pick two random numbers between 1 
and 6. 

Check player’s input. 

Print the random numbers on the screen. 
Check the numbers and send computer 
to different lines to work out different scores. 

Check number of chips left. If C - 0 send 
' computer to end of program. 

. Send computer back for another bet. 

Adjust value of C. 

If C is 50 or more, send computer to end 
of program. 


"WELL DONE. NOW YOU CAN ESCAPE" 
"FROM ZORGOS WITH ";C?" CHIPS" 
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Paper, Stone, or Scissors: Spotthebugs 

Correct the following lines as shown below to 
make the program run properly. 

50 LET R=INT < RND <I)*3+1) 

80 IF R=3 THEN LET C*=“SCISSORS" 

150 IF C*="SCISSORS" AND A*="STONE" 
THEN LET F=1 
190 PRINT “SO "5 

210 IF F=1 THEN PRINT "YOU WIN" 

230 IF F=0 THEN LET C=C+1 
240 IF F=1 THEN LET A=A+1 
280 IF C<10 AND A< lO THEN GOTO 40 

Character crunching (pages 16-17) 

String puzzles 

1 A 40 PRINT TABOO ;MID4<N4,K, 1) 

This makes the computer print one letter from 
the word at a time, at TAB position K, starting 
with letter number K. 

9 lO LET K4="KANGAROO" 

20 LET L=LEN <K*) 

30 FOR J=L TO 1 STEP-1 
A 40 PRINT MID*(K*,J.1) l 
50 NEXT J 

Use a 1 step loop to make the computer print a 
word backwards. 

3 A 50 PRINT RIGHT % (S4,L-J)+LEFT4< S*, J • 

Each time the loop repeats, RIGHT$(S$, L-J) 
makes computer prmt L (the length of the word) 
minus J letters from the right of SQUARES, and 
then add J letters from the left. Try running this 
program with different words. 


Longest word 

50 IF LEN(W*);LEN<A*> 

THEN LET A*=W* 

Each time the loop repeats the computer 
compares the length of W$ with A$. If W$ is 
longer than AS, it replaces AS with W$ and then 
compares the next word. At the end of the loop 
AS will contain the longest word entered. 

Shortest word 

10 LET A*="XXX*''&&ABC***123 1 •'' 
XXXXXXXXXX" 

50 IF LEN(W*><LEN(AS) 

THEN LET A*=W* 

70 PRINT "SHORTEST WORD :“ 

This is the same as the longest word program 
except for lines 10 and 50. Line 10 contains a 
string of characters for the computer to compare 
the length of each word with. It does not matter 
what characters you put in AS. 


Word editor 

Here are the completed program lines from the 
Word editor program. 

40 let s*=- "♦S*«-“ •• 

70 LET W*=" " 

You need to add spaces either side of S$ and W$ 
to make sure in line 140 that the computer only 
searches for whole words. Without the spaces 
the computer would pick out any characters in 
the sentence which matched S$ or W$. Try 
running the program without these spaces and 
see what happens. 

lOO LET LS=LEN<S*> 

110 LET LW=LEN(WS) 

These lines make LS equal the length of S$ and 
LW equal the length of W$. Line 100 is repeated 
again at line 160 to make LS equal the length of 
the new sentence. 

A 140 IF MID*(S*.K f LW>=W* 

THEN LET A*=S* 

Each time the loop repeats M1D$(S$, K, LW) 
makes the computer check LW (the length of 
W$) characters in S$, starting at character K. 
When it finds a sequence of characters which 
match W$, it stores the whole sentence in a new 
variable, A$. 

A 150 IF A*=S* THEN LET S*=LEFT*<A*„K> 
♦N*+RIGHT*<A*.LS—<K+LW-2>) 

LEFT$(A$,K) works out the number of 
characters to the left of the word you want to 
replace. The best way to understand how this 
line works is to try it out with a sentence on a 
piece of paper. 

180 IF K<=LS-LW+1 THEN GOTO 140 

Send the computer back to line 140 to check 
through the rest of the sentence in case the word 
you want to replace occurs another time. 


Alterations for Sinclair 
(Timex) computers 

String puzzles 

Insert these lines m the String puzzle 
answers 1,2 and 3. 

1 40 PRINT TABOO ;N*<K TO K) 

2 40 PRINT K*<J TO J) ; 

3 50 PRINT S% < J «■ 1 TO )+S*( TO J) 

Word editor 

140 IF S*<K TO K+LW-1>=W* THEN 
LET A4=S» 

150 IF A4=S* THEN LET S*=A*( TO K> 
♦N4+A*(K+LW-1 TO ) 

Replace these lines in the Word editor 
program. 




More character crunching (page18) 

Letter puzzles 

1 A 10 FOR K=65 TO 90 

These are the ASCII numbers to prmt out 
the alphabet. On the ZX81 (Timex 1000), the 
numbers should be 38 to 63. 

2 10 FOR K—97 TO 122 
20 PRINT CHRS(K); 

30 NEXT K 

These are the numbers to print out the 
alphabet in small letters. (On some 
computers, e.g. the Dragon which cannot 
print small letters, these numbers are used 
for a different set of capital letters.) 

3 A 10 LET R=INT<RND<1)*26+65) 

20 PRINT CHRS<R>1 
30 GOTO 10 

This is the simplest way to print a senes of 
random letters. For the ZX81 (Timex 1000), 
replace 65, the code number for the first 
letter in the alphabet, with 38. 


Comparing letters 

10 INPUT XS,Y* 

20 IF X*<YS THEN PRINT X*5“ COMES 
BEFORE "JYI 

30 IF Y*<XS THEN PRINT YSJ" COMES 
BEFORE ";X* 

40 GOTO lO 

If your computer only allows one variable 
after INPUT, use two separate INPUT lines. 

Capital converter 

50 IF X * >■ " a " AND X*<="z" THEN PRINT 
CHR* < ASC < X*)-32) i 

60 IF XS>*"A“ AND X*<="Z" THEN PRINT 
CHR*(ASC<X*>+32)J 

The missing number in lines 50 and 60 is 32. 

This is the difference between the code 
numbers of capital and small letters. Have a 
look at the code chart in your manual. 


Code writing programs (page 19) 

Secret code writer 

Here is the complete program with the missing 
numbers and symbols filled in. Use this program 
for the Spectrum (Timex 2000) but change the 
ASC command to CODE. For the ZX81 (Timex 
1000) use the program on the right. 

10 PRINT "WHAT IS YOUR MESSAGE" 

20 INPUT M* 

30 FOR J=1 TO LEN<M*> 

A 40 LET X=ASC(MID*(M*.J,1>> 

50 IF X*.65 OR X >90 
THEN LET N=X:GOTO lOO 
60 IF INT <J/2)=J/2 THEN LET N=X+1 
70 IF INT(J/2)OJ/2 THEN LET N=X-1 
BO IF N<65 THEN LET N=N+26 
90 IF N >90 THEN LET N=N-26 
100 PRINT CHR*(N); 

110 NEXT J 

Lines 60-70 check whether the loop variable J is odd or even by dividing J by 2, then using INT to 
make it into a whole number. The computer then checks to see if the answer equals J/2 and if it does, J 
is an even number. 

Key number code 

For this program use the Secret code writer 
program and insert lines to input a secret 
number. Then you need to change line 60 to 
add the key number (K) to the ASCII code 
number (X) for each character, and delete 
line 70. 

25 PRINT "WHAT IS THE KEY NUMBER" 

27 INPUT K 
60 LET N=X+K 

70 Delete this line. 

Loopy code 

This is also the same as the Secret code writer, 
but at line 60 you should add the loop variable U) 
to the ASCII code number for each character. 

60 let n=x♦J 

70 Delete this line. 

Loopy code decoder 

To write a decoder, change line 60 to read: 


Reverse code 

lO INPUT "MESSAGE ";M* 

20 FOR J=1 TO LEN(MS) STEP 2 
A 30 PRINT MID*<MS,J+l,1)J 
A 40 PRINT MID*(MS,J,1); 

50 NEXT J 


Step 2 makes the computer count in twos. Each 
time the loop repeats it prints the second (J + 1) of 
a pair of characters on the screen, followed by 
the first 0)- 

Sinclair (Timex) Reverse code changes 

30 PRINT MS(J+l TO J+1)J 
40 PRINT M*(J TO J); 


A ZX81 (Timex 1000) Secret code writer 


10 PRINT "WHAT IS YOUR MESSAGE" 

20 INPUT M* 

30 FOR J=1 TO LEN(MS) 

40 LET X=CODE(MS(J TO J)) 

50 IF X-38 OR X 63 THEN LET N=X 
55 IF X<38 OR X>63 THEN GOTO lOO 
60 IF INT(J/2)=J/2 THEN LET N=X+1 
70 IF INT (J/2)OJ/2 THEN LET N=X-1 
80 IF N* 38 THEN LET N=N + 26 
90 IF N>63 THEN LET N~N-26 
lOO PRINT CHR«(N); 

110 NEXT J 







DATA puzzles (pages 22-23) 

Name check 

50 IF X*="JIM" THEN PRINT "YOUR NAME 
ISN’T ON THE LIST";STOP 
80 DATA CHARLIE.JEMIMA,DEADEYE DICK 
90 DATA SAMPSON,DELILAH.JIM 

Put your own list of names in DATA lines like 
this, making sure you put a comma between 
each name. Put the last name in the list in line 50. 

If your computer does not accept multiple 
statement lines, repeat the IF/THEN instruction 
with STOP on a new line. 

Restoring DATA 

10 for j =65 to 9o3 ASCII codes 
20 for 1 = 1 to 19 3—Number of data items 
A 40 IF LEFT*<N*.1>=CHR*<J> THEN PRINT N* 

Sinclair (Timex) changes 

40 IF N*(l TO 1>=CHR*<J> THEN PRINT N* 

Spot the bug puzzles 

1. The data items contain symbols such as - and 
/ so in line 20 you should change the variable to a 
string variable, e.g. N$. 


2. The GOTO command makes the computer 
carry on trying to read data after it has come to 
the end of the data list and you will get a syntax 
error such as “OUT OF DATA AT LINE 50”. To 
solve this you could use a loop to run as many 
times as there are data items, or put the last data 
item in an IF/THEN line as in the Name check 
program. 

Joe's Cafe 

10 PRINT "WELCOME TO JOE’S CAFE" 

20 PRINT "HOW MUCH CAN YOU SPEND" 

30 INPUT X 

40 PRINT "HERE’S WHAT YOU CAN EAT" 

50 PRINT 
60 READ Y,Y* 

70 IF Y<»X THEN PRINT Y* 

80 IF YS—"PEPPERMINT MILKSHAKE" THEN STOP 
90 GOTO 60 

lOO DATA 1.99,FRENCH SNAIL STEW 

List all the other prices and items on the menu in 
the DATA lines, ending with PEPPERMINT 
MILKSHAKE. 


Telephone directory 


lO PRINT "WHOSE TELEPHONE NUMBER" 

20 PRINT "DO YOU WANT" 

30 PRINT 

so reaiTxvy* ]_Read names into X$ and numbers into Y$. 

60 if n*=x* then goto 90 ] Goes to line 90 when it finds the name. 

70 if x*=- then print "name not listed":goto ioo ]—Put last name in your list in the 
so goto so quotes in this line. 

90 PRINT x*;“:"; y* 

100 PRINT "DO YOU WANT ANOTHER NUMBER" 

HO INPUT A* 

120 IF A*="YES" THEN GOTO 150 
130 IF AS—"NO" THEN STOP 

140 PRINT "I DON’T UNDERSTAND":GOTO 110 

150 RESTORE:GOTO 10 ]- 

160 DATA CHIPMUNK,670-5054 
170 DATA RUSTY ROBOT,60-1 4 444] 


You need this line in case you type 

_something other than yes or no at line 110. 

Send computer back to beginning of DATA list. 
List the names and numbers like this in the DATA lines. 


Using arrays (pages 24-25) 

Numeric arrays 

10 DIM N(6) 

50 DATA 1066,1216.1485,1603,1665,1959 

Printing out the data 

You need a loop like this to print out the data 
(remember to renumber the DATA line): 

50 FOR K-l TO 6 

60 print "N<";k;"> is ";n<k> 

70 NEXT K 

This loop prints the elements of the array at 
random: 

50 FOR K-l TO 10 

60 LET R=INT(RND(1)*6+1) 

70 PRINT N(R), 

80 NEXT K 

String arrays 

A 10 DIM NS<5> 

20 FOR 1-1 TO 5 
A 30 READ NS < I > 

40 NEXT I 
50 FOR 1-1 TO 5 
60 PRINT "NS("|I*") IS ";NS(I) 

70 NEXT I 

80 DATA TONY.CORINNE,JUDY,CHRIS,GABY 


Calendar calculator 

Fill in the missing lines and variables as follows: 

A 10 DIM MS(12),D<12> 

A 30 READ MS(K),D<K> 

70 PRINT MS <N) ; " HAS "? 

80 PRINT D(N);" DAYS" 

Add the rest of the data lines like this: 

A 90 DATA JANUARY,31 


Insert these lines to alter the program: 

50 PRINT "WHAT MONTH" 

60 INPUT A* 

62 FOR 1=1 TO 12 

A63 IF MS<I)=AS THEN LET F-I 
64 NEXT I 
70 PRINT A*;" HAS 
80 PRINT D(F); M DAYS" 

Sinclair (Timex) changes 

10 DIM MS(12.9) 

15 DIM D(12) 

A 30 INPUT MS<K> 

A 35 INPUT D(K) 

63 IF MS<IM TO LEN<A*> > = AS THEN 
LET F= 1 


Sinclair (Timex) 
changes 

lO DIM NS<5,7> 
A 30 INPUT NS<I> 
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Make up your mind program 

A 10 DIM 14(10) 

20 FOR K»1 TO 10 
A 30 READ I4(k> 

40 NEXT ► 

50 PRINT "PICK A NUMBER FROM 1 TO 10” 
60 INPUT N 

70 PRINT "WHY DON’T YOU "5 
80 PRINT I*(N> 

90 PRINT “O.K. "J 
100 INPUT A* 

110 IF A4="YES" THEN STOP 
120 PRINT:GOTO 50 

130 DATA PAINT A PICTURE,READ A BOOT 

Add your data to line 130 

Sinclair (Timex) changes 

10 DIM 14(10,? ) 

A 30 INPUT 14<K> 

Count the number of characters in your longest 
string and put the figure in the DIM statement. 

Random number chart 

lOO FOR K-l TO 10 
110 PRINT KJTAB<4>; 

120 FOR L=1 TO A <K) 

130 PRINT 
140 NEXT L 
150 PRINT 
160 NEXT K 


Writing subroutines (page 26) 

Ice cream survey 

A lO DIM 14(5).N(5) 

20 FOR k=1 TO 5 
A 30 READ I4(K),N(K) 

40 GOSUB 70 
50 NEXT K 
60 STOP 

70 PRINT 14 < K > * TAB <1 I>i" 

80 FOR L=1 TO NIK) 

90 PRINT 
100 NEXT L 
110 PRINT 
120 RETURN 

130 DATA MELON.16.BANANA,11 
140 DATA GINGER.8.GHERKIN.1 
150 DATA BUBBLE GUM,18 

You need the TAB instruction in line 70 to make 
sure the computer prints the *s at the same place 
on each line. 

Sinclair (Timex) changes 

lO DIM 14(5.10) 

15 DIM N<5> 

A30 INPUT I 4(K) 

A35 INPUT NO.) 

Sinkthesub 

200 PRINT "YOU MISSED" 

210 PRINT "TRY 

220 IF B=Y THEN GOTO 250 

230 IF B<Y THEN PRINT "NORTH "J 

240 IF B>Y THEN PRINT "SOUTH "i 

250 IF A=X THEN GOTO 280 

260 IF A< X THEN PRINT "EAST" 

270 IF A>X THEN PRINT "WEST" 

280 RETURN 

This is the subroutine to compare the sub’s 
4 2 location with the guess and print a message on 
the screen. 


Twenty questions 


A10 
2 ° 
A 30 
40 
50 
60 
70 
80 
90 


DIM 04(20),A(20> 
FOR K—1 TO 20 
READ Q4(K),A(K) 
NEXT K 

FOR L=1 TO 20 
PRINT Q4(L> 

INPUT X 
IF X=A(L> 

IF XOA(L) 


If your answers 
include symbols or 
letters, put them in 
a string array. 


"CORRECT" 

NO STUPID. 


THEN PRINT 
THEN PRINT 


THE ANSWER IS ";A(L> 
lOO PRINT 
110 NEXT L 

120 DATA HOW MANY LEGS 
DOES A CENTIPEDE HAVE 7,100 
130 DATA HOW MANY PLAYERS 
IN A FOOTBALL TEAM 7,11 


Put your questions 
and answers in data 
lines like this. 


Sinclair (Timex) changes 

10 DIM 04(20.?) 

15 DIM A(20) 

A30 INPUT 04(K) 

A 35 INPUT A(K) 


Count the number of characters in your longest 
string and put the figure in the DIM statement. 


Fruit machine program 

AlO DIM F4 (6) 

20 FOR K-l TO 6 
A 30 READ F4(K) 

40 NEXT K 


50 

CLS 





60 

LET 

T-10 




70 

PRINT "YOU HAVE 

; T;" 

TOKENS" 

80 

LET 

I 4=INKEY4 




90 

IF 

14="" THEN GOTO 80 



lOO 

LET 

T=T-1 




1 lO 

CLS 





120 

LET 

R=INT(RND(1 

)*6+l) 



130 

LET 

A4=F4(R) 




140 

LET 

R=INT(RND(1 

) *6+ 1 ) 


_ Selects three 

150 

LET 

B4=F 4(R) 



fruits from F$. 

160 

LET 

R=INT(RND(1 

)*6+l) 



170 

LET 

C4=F4(R) 





180 PRINT 

190 PRINT A4; " “; B4 ;" - jcTT- p^sfruits. 

200 PRINT - 

210 IF A4=B4 AND B4=C4 AND 
C4="CHERRY" THEN GOSUB 270 
220 IF A4=B4 AND B4=C4 AND 
C4< >"CHERRY" THEN GOSUB 310 
230 IF (A4=B4 AND B4« >C4) OR 
(A4=C4 AND C4<. >B4) OR (B4=C4 

AND C4< >A4) THEN GOSUB 350_ 

240 IF T>0 THEN GOTO 70 
250 PRINT "NO TOKENS LEFT" 

260 STOP _ 

270 PRINT "3 CHERRIES" 

280 PRINT "YOU WIN THE JACKPOT" 

290 LET T=T*20 
300 RETURN 

310 PRINT "3 OF A KIND" 

320 PRINT "YOU WIN 5 TOKENS" 

330 LET T=T+5 

340 RETURN _ 

350 PRINT "2 OF A KIND" - 

360 PRINT "YOU WIN TWO TOKENS" 

370 LET T=T+2 

380 RETURN _ 

390 DATA LEMON.CHERRY,MELON 
400 DATA BELL,GRAPE.PLUM 

Sinclair (Timex) changes 

lO DIM F4(6.6) 

A 20 INPUT F4(K) 


list 

I subroutine 


2 nd 

subroutine 


3rd 

subroutine 


Lines 210-230 
- work out what 
sort of win you 
have. 






Treasure hunt program (pages 28-33) 

Here is the complete program for the treasure hunt game, listed section by section, in the correct 
order for the program. The alterations for Sinclair (Timex) computers are at the end of the program. 


1 Setting up arrays and reading data 

AlOO DIM N<7>,E<7>,S<7>,W<7>,D*<7>. 
T*<7),T<7> 


1 10 

FOR K*1 TO 7 

A 120 

READ N(K),E(K),S(M,W(K) 

130 

NEXT K 

140 

FOR K=1 TO 7 

A 150 

READ D*(K> 

160 

NEXT K 

170 

FOR K=1 TO 7 

A 180 

READ T*(K).T(K) 

190 

NEXT K 

200 

LET M=0 

210 

LET C=0 

220 

LET F=0 

230 

LET W=0 

240 

LET X=0 

250 

LET Y»0 

260 

CLS 


See line 2000 for the data. 


2 Help subroutine 

300 GOSUB lOOO 

See line 1000 for subroutine. 

3 Select a room at random 

350 LET R=INT(RND(1)*7+1) 

4 Identifying the room 

400 PRINT "YOU ARE IN ROOM ";R 
410 PRINT "IT IS ”5 D* <R> 

420 PRINT "IT CONTAINS:"; 

Identifying the contents 

430 FOR K*1 TO 7 

A 440 IF T<K)=R THEN PRINT TAB(15>? 

T4 <K>:LET F=1 
450 NEXT K 

460 IF F*0 THEN PRINT TAB(15)"NOTHING" 
470 LET F=0 
A 480 PRINT:PRINT 

F is a flag variable. In line 440, the flag “goes 
up” (F is 1) when one of the numbers in the T 
array equals the room number (R). 

5 Player's input 

500 PRINT "WHAT DO YOU WANT TO DO " 

510 INPUT A* 

520 IF A4="HELP" THEN GOSUB lOOO 
530 IF A*="N" OR A*="E" ORA*="S" OR 
A*=”W" THEN GOSUB 1200 
540 IF A4="GRAB" THEN GOSUB 1300 
550 IF A4="PUT" THEN GOSUB 1400 
560 IF A*="LOCATE" THEN GOSUB 1500 

Lines 520 to 560 send the computer to a 
different subroutine depending on the word 
the player types into the variable AS (line 510). 

10 Count player's moves 

600 LET M=M*1 

111s all the the treasure in the same 
room? 

610 LET W=T(1> 

620 FOR K=2 TO 7 

630 IF W< >T(K> THEN LET F=1 

640 NEXT K 

650 IF F=1 THEN GOTO 690 

660 PRINT "WELL DONE. YOU GOT ALL 

THE TREASURE" 

670 PRINT "INTO ROOM ";R;" IN "5 Mi" 
MOVES" 

680 STOP 
690 LET F=0 


In lme 610 the number stored in T( 1) is put into 
variable W. Inside the loop (line 630) the 
computer compares W with all the other 
numbers stored in array T. If any T number is 
different to W the computer makes the flag 
variable (F) equal 1. If all the numbers in the T 
array are the same as W F stays at 0 which 
means all the treasure is in the same room. 

12 Has the player used up all his moves? 

700 IF M« =28 THEN GOTO 730 

710 PRINT "SORRY. YOU’VE RUN OUT OF 

MOVES" 

720 STOP 
730 PRINT 


If M is more than 29 the player has run out of 
moves and so the program stops. You can 
change the number of moves the player is 
allowed. 

13 Has the player changed location? 

800 IF A*="N" OR A*="E" OR A*="S" OR 
A4="W" THEN GOTO 400 

810 PRINT "YOU ARE STILL IN ROOM ";R 
850 GOTO 500 

2 Help subroutine 


1000 PRINT "THERE ARE SEVEN ROOMS IN 
THE MAZE" 

1010 PRINT "AND THERE IS A BOX OF 
TREASURE" 

1020 PRINT "IN EACH ONE. YOU MUST GET 
ALL" 


1030 PRINT "THE BOXES 
ROOM" 

1040 PRINT 

1050 PRINT "THESE ARE 
COMPUTER UNDERSTANDS" 
1060 PRINT "HELP : 

TO PLAY" 

1070 PRINT "N,E.S,W : 
EAST OR WEST" 

1080 PRINT "GRAB s 

1090 PRINT "PUT : 

1100 PRINT "LOCATE : 

LOCATION OF TREASURE" 


INTO THE SAME 


THE COMMANDS THE 

TELLS YOU HOW 

MOVE NORTH,SOUTH, 

PICK UP TREASURE" 
PUT DOWN TREASURE 
PRINT CURRENT 


A 1110 PRINTjPRINT 
1120 RETURN 

The computer tells you how the game works 
and the words that it understands. Each time 
the player inputs the word HELP the computer 
will come to this subroutine. 

6 Move subroutine 

1200 IF AS=”N" THEN LET X=N(R) 

1210 IF A»="E" THEN LET X=E(R) 

1220 IF A*="S" THEN LET X=S(R) 

1230 IF A*="W" THEN LET X=W(R) 

A 1240 IF X=0 THEN PRINT "CAN’T GO THAT 
WAY":GOTO 1260 
1250 LET R=X 
1260 RETURN 

In lines 1200-1230 the computer works out 
which direction the player typed (N, E, S or W). 
Then it finds the number of the room in that 
direction using R as the subscript of the 
relevant array and stores it in X. If X is 0 (line 
1240) it means there is no room in that direction. 



7 Grab subroutine 

A 1300 IF C=1 THEN PRINT "YOU CAN’T CARRY 
ANY MORE":GOTO 1370 
1310 FOR K=1 TO 7 
1320 IF TOO =R THEN LET Y*K 
1330 NEXT K 

1340 IF Y=0 THEN PRINT "THIS ROOM IS 
EMPTY" 

1350 LET T(Y)=999 

1360 PRINT "O. K. YOU’RE CARRYING 
THE " » T S (Y) 

A 1370 LET C=1:LET Y=0 
1380 RETURN 

In line 1320 the computer compares each 
number stored in array T with R. If they are 
equal it takes the subscript number of that T 
element and stores it in a variable Y. After the 
loop, the computer uses Y to pick the right 
element of T and changes its value to 999 (line 
1350). If Y is 0 (line 1340) it means the room is 
empty. 

8 Put subroutine 

A 1400 IF C=0 THEN PRINT "YOU’RE NOT 
CARRYING ANYTHING":GOTO 1450 
1410 FOR K=1 TO 7 

1420 IF TOO =999 THEN PRINT TStk); 

" PLACED IN ROOM ";R 

1430 IF TOO =999 THEN LET T OO =R 

1440 NEXT K 

1450 LET C=0 

1460 RETURN 

The computer finds the element of T which 
equals 999 (line 1420). Then it changes its value 
to R (line 1430). 

9 Locate subroutine 

1500 PRINT "YOU ARE CARRYING : "5 
A 1510 IF C=0 THEN PRINT TABOO); 
"NOTHING":GOTO 1550 
1520 FOR K-l TO 7 
1530 IF TOO =999 THEN PRINT 
TABOO) J T4 00 
1540 NEXT K 

1550 PRINT "CONTENTS OF ROOMS: ” 

1560 FOR k=l TO 7 

1570 IF T <K)< >999 THEN PRINT 

TOO;” : ”;T*<K) 

1580 NEXT K 
1590 RETURN 

1 The data 

A 2000 DATA 2,7,6,0 
2010 DATA 0,3,7,1 
2020 DATA 0,0,4,2 
2030 DATA 3, 0,5,7 
2040 DATA 7,4,0,6 
2050 DATA 1,5,0,0 
2060 DATA 2,4.5,1 

This is the data for the N, S, E, W arrays. 

2100 DATA COLD AND CREEPY,DARK 
AND DINGY 

2110 DATA GREY AND GHOSTLY,FOUL 
AND FOGGY 

2120 DATA EMPTY AND EERIE,HAUNTED AND 
HORRIBLE,SPOOKY AND SCARY 

This is the data for D$. 

2200 DATA GOLD,1,CHEWING GUM,2 
2210 DATA SANDWICHES,3,RUBBISH,4 
2220 DATA POTS OF HONEY,5,JEWELS,6, 
COINS,7 
44 

This is the data for T$ and T. 


Sinclair (Timex) alterations 

No alterations are needed for the Spectrum 
(Timex 2000) except that the string arrays 
should be dimensioned as for the ZX81 
(Timex 1000). Each DIM statement should 
be separated by a colon or put on a 
separate line as for the ZX81 (Timex 1000). 

Line 100: Put the DIM statements on 
separate lines and dimension D$(7,20) and 
T$(7,23). 

Line 120: Insert separate INPUT lines for 
each array and type in the data when you 
run the program. 

120 input n <►. > 

123 INPUT E(K) 

125 INPUT SCK) 

127 INPUT W(K) 

Line 150: Use INPUT and type in the data 
when you run the program. 

150 INPUT D*(K) 

180 INPUT T4(K) 

Line 180: Use INPUT for the T$ array and 
LET for array T so you do not have to input 
the starting locations of the treasure each 
time you run the program. Use a new loop 
from lines 193-197 for the LET statement, 
like this: 

193 FOR K=1 TO 7 
195 LET T(K)=K 
197 NEXT K 

Line 350: Use your computer’s RND 
command. 

350 LET R=INT(RND *7*1) 

Line 440: Use separate lines and repeat the 
IF THEN instruction, like this: 

440 IF T(K)=R THEN PRINT TAB(15)1T*(K) 
445 IF T <K > =R THEN LET F=1 

Lines 480 and 1110: Use separate lines. 

Lines 1240-1510: Use separate lines and 
when there is an IFTHEN instruction, 
repeat it on a new line, e.g: 

1240 IF X-0 THEN PRINT "CAN’T GO 
THAT WAY” 

1245 IF X=0 THEN GOTO 1260 

Line 2000: Remove lines 2000-3000 and add 
these lines so you do not have to input the 
data each time you run the program. When you 
want to play the game again, just type GOTO 
2000. (When you press RUN, the computer 
clears all the variables and arrays.) 

2000 PRINT "DO YOU WANT TO PLAY AGAIN" 
2010 INPUT R% 

2020 IF R*="YES" THEN GOTO 193 
2030 IF R*="NO" THEN STOP 
2040 GOTO 2000 





Guide to BASIC 

Here is a list of the BASIC words used in this book, with a short explanation of what 
each one means. Words marked with an asterisk are not standard on all 
computers. For these words, look at the conversion chart on page 47 or in your 
manual to find the right command for your computer. 


ABS tells the computer to ignore the plus 
and minus signs in front of numbers and 
gives their absolute values. For instance, 
ABS(-5) is 5. 

* ASC converts a character to its ASCII code 
number. For instance, ASC("A”) will give 
you 65 which is the ASCII code number for 
the letter A. Sinclair (Timex) computers use 
CODE instead of ASC. 

CHR$ converts a number into a character 
according to the code numbers which 
represent the characters inside the 
computer. On computers which use the 
ASCII code, CHR$(65) gives the letter A. On 
theZX81 (Timex 1000), which uses different 
code numbers, CHR$(38) gives you A. 

CLS clears the screen. 

* CODE is used on Sinclair (Timex) 
computers instead of ASC, to convert a 
letter to its code number. The Spectrum 
(Timex 2000) uses the ASCII code numbers 
but the ZX81 (Timex 1000) has its own. 

‘DATA see READ/DATA 

* DIM tells the computer how much 
memory space to put aside for an array. You 
use the word DIM followed by the name of 
the array and the number of items it 
contains. For instance, DIM A(5) means that 
there are five pieces of information in the 
array A. With string arrays on Sinclair 
(Timex) computers, you must also put the 
number of characters in the longest string, 
in the DIM statement. 

FOR/TO... NEXT makes the computer 
repeat the instructions between the FOR/ 

TO and NEXT lines a certain number of 
times. This is called a loop. 

GOSUB tells the computer to leave the main 
program and go to a section of the program 
called a subroutine. GOSUB must be 
followed by the number of the first line of 
the subroutine. At the end of the routine, the 
word RETURN tells the computer to go 
back to the main program starting at the 
instruction after the GOSUB command. 


GOTO makes the computer jump to the line 
number following the word GOTO. 

IF/THEN tells the computer to make a 
decision and do something according to the 
result. After the word IF, there is a condition 
which the computer must test by comparing 
pieces of information. If the condition is 
true, then the computer will carry out the 
instructions following the word THEN. If the 
condition is not true, it will ignore them. 

* INKEYS checks the keyboard to see if a 
key is being pressed. It does not wait for 
you to press the key like INPUT, nor do you 
need to use the RETURN key (or ENTER or 
NEWLINE on different computers). 

Because computers work so fast, INKEYS is 
often used inside a loop. On some 
computers you have put a number in 
brackets after INKEYS which tells the 
computer how long to wait. 

INPUT tells the computer to wait for you to 
type information into a variable while the 
program is running. INPUT must be 
followed by a variable name. 

INT is short for integer (a whole number). It 
turns a real number (a number with figures 
after the decimal point) into a whole 
number by ignoring everything after the 
decimal point. For instance, INT(6.732) will 
give you 6. With negative numbers it does 
the same but rounds the number down to 
the next whole number so that INT( - 3.2) 
will give you - 4. 

‘LEFTS tells the computer to take a number 
of characters from the left hand side of the 
string. For instance, LEFT$(AS,4) tells the 
computer to take the first four characters 
from AS. Sinclair (Timex) computers do not 
use this command. 
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LEN gives the length of a string, in other 
words the number of characters (including 
spaces and punctuation marks) in a string. 

LET labels a memory space and puts some 
information into it. 

LIST tells the computer to display the 
program listing on the screen. 

*MID$ tells the computer to take a number 
of characters from a string. For instance 
MID$(A$,5,2) picks two characters from the 
variable A$ starting at the fifth letter. 

Sinclair (Timex) computers do not use this 
command. 

NEXT tells the computer to go back to the 
beginning of a loop. See FCR/TO... NEXT. 

NEW tells the computer to delete the 
program. 

PRINT tells the computer to display 
something on the screen. PRINT by itself 
makes an empty line. 

* READ/DATA tells the computer to look 
for the items listed in lines starting with the 
word DATA and put them into the variable 
or array following the READ instruction. 

REM is short for remark and REM 
statements are used to remind you what 
different parts of the program do. 

RESTORE tells the computer to go back to 
the beginning of the DATA lines. 

RETURN is used at the end of a subroutine 
to tell the computer to go back to the main 
program starting at the instruction after the 
GOSUB command. 

* RIGHTS tells the computer to take a 
number of characters from the right hand 
side of a string. For instance, RIGHT$(A$,4) 
tells the computer to pick the last four 
characters from A$. Sinclair (Timex) 
computers do not use this command. 

* RND tells the computer to pick a random 
number. 

RUN tells the computer to carry out the 
instructions in a program. 

* SPC tells the computer to print a certain 
number of spaces across the screen. Not all 

4 g computers use this command. 


STEP is used with FOR/TO.. . NEXT loops 
to tell the computer how often to repeat the 
loop. 

‘TAB moves the cursor a certain number of 
spaces across the screen. It is usually used 
with PRINT to display something in the 
middle of the screen. On some computers 
you can also use TAB to move the cursor a 
certain number of rows down the screen. 
On most computers you need to put a semi¬ 
colon after TAB. 

THEN is used with IF to tell the computer 
what to do if certain conditions are true. See 
IF/THEN. 


BASIC symbols 

* 

Multiply 

/ 

Divide 

SQR 

Find the square root 

A 

Raise to the power of. It is 
not standard so look in your 
manual to find out what 
symbol your computer uses. 

> 

Greater than 

< 

Less them 

> = 

Greater than or equal to 

< = 

Less than or equal to 

<’ ’> 

Not equal 




Conversion chart 


Command 
used in this 
book 

— 

CLS 

Clears the screen. 

— 

INT(RND(1)*N+1 ) 

Picks a whole random 
number between 1 and N. 

INKEY* 

Makes the computer 
wait for you to press a key. 

BBC 

CLS 

RND(N) 

INKEYS(N) 

VIC 20/PET 

PRINT CHR*(147> 

INT(RND <1)*N+1) 

GET X* 

DRAGON 

CLS 

RND(N) 

INKEYS 

ORIC 

CLS 

INT(RND(1)*N+1) 

KEYS 

TRS80 

CLS 

INT(RND(O)*N+1) 

INKEYS 

APPLE 

HOME 

INT(RND(1> *N+1) 

~ 

XS= M " 

IF PEEK(—16304) 

I >127 THEN GET XS 

ZX81 

TIMEX (1000) 

CLS 

INT (RND*N+1) 

INKEYS 

SPECTRUM 
TIMEX (2000) 

CLS 

INT(RND*N+1) 

INKEYS 

-- 


Additional conversions for Sinclair (Timex) computers 

LEFT* 

RIGHT* 

MID* 

Sinclair (Timex) computers do not 
handle strings in the same way as 
other computers. To convert these 
commands you should count the 
position of the first and last 
characters you want to select. 

Then put these in brackets with 
the word TO after the string or its 
variable name as shown in the 
examples on the right. 

LET XS="CHIPMUNK" 

PRINT X$(l TO 4) 
CHIP 

PRINT X*(5 TO ) 

MUNK 

PRINT XS(2 TO 4) 

HIP 

ASC 

Use CODE instead of ASC. The 

ZX81 (Timex 1000) has its own 
code numbers but the Spectrum 
(Timex 2000) uses the ASCII code. 

PRINT CODE("A") 

DIM 

To dimension a string array, use 

DIM followed by two numbers in 
brackets. The first is the number of 
data items (strings) in the array 
and the second is the number of 
characters in the longest string. In 
the example on the right, array AS 
contains five strings, the longest of 
which has 12 characters. 

DIM A$(5,12) 

_ 

READ/DATA 

The Spectrum (Timex 2000) uses 
READ/DATA like other 
computers but the ZX81 (Timex 

1000) has no exact equivalent. The 
best alternative is a series of 

INPUT statements as shown on the 
right. 

10 FOR K=1 TO 5 

20 INPUT AS(K) 

30 NEXT K 





Index 

In this index you will find the names of the puzzles, BASIC words and ideas covered in this 
book. The page numbers for the puzzles answers are printed in bold. 


AND, 12 
arrays, 24-25 
ASC, 18,45,47 
ASCII code, 18 
Binary counter, 10,35 
branching, 12 
bugs, 3,4 

Bugs in loops, 10,35 

Calendar calculator, 25,41 

Capital converter, 18,39 

Car crash game, 21,40 

Centigrade to Fahrenheit, 7,34 

CHR$, 18,45 

CODE, 18,45,47 

Comparing letters, 18,39 

Computer calculator, 12,36 

Computer clock, 10,35 

DATA, 22,45 

delay loops, 9 

DELETE. 4 

DIM, 24,45,47 

direct commands, 4-5 

Do you speak Uglian? 7,34 

elements (of an array), 24 

Escape from Zorgos, 15,37 

flag variable, 31 

Flashing message, 10,35 

flow chart (Treasure hunt program), 29,31,32 

FOR/TO... NEXT, 8-9 

Fruit machine program, 27,42 

GET, 20,47 

GOSUB, 26,45 

GOTO, 12 

Guessing games, 13,36 

High speed maths bugs, 20,40 

Horse race, 13,36 

Ice cream survey, 26,42 

IF/THEN, 12-13 

INKEY$, 20,45,47 

INPUT, 6 

INT, 14,45 

Joe’s cafe, 23,41 

Jumping man program, 11,36 

Key number code, 19,39 

KEYS, 20,47 

LEFTS, 16,45,47 

LEN, 16,46 

LET, 6,46 

Letter puzzles, 18,39 
LIST, 4,46 


Longest word, 17,38 

Looking inside a program, 7,34 

Loop puzzles, 8,10-11,34,35 

Loop to make program run more slowly, 10,35 

Loopy code, 19,39 

Make your mind up program, 25,42 

making the computer wait, 20 

mathematical symbols, 4,46 

MIDS, 16.46,47 

mistakes, correcting, 4-5 

Name check, 22,41 

nested loops, 10 

NEW, 4,46 

Number sequence, 14,37 
OR, 12 

Paper, stone, scissors: Spot the bugs, 15,38 

Password, 12,36 

Pattern puzzles, 9,35 

PRINT, 4-5,46 

PRINT puzzle, 6,34 

punctuation marks, 4 

Random number chart, 25,42 

READ/DATA, 21,46,47 

RESTORE, 22,46 

RETURN, 4-5 

Reverse code, 19,39 

RIGHTS, 16,46,47 

RND, 14,46,47 

Rocket lift off program, 11,35 
RUBOUT, 4 
RUN, 5,46 

Sausage program, 7,34 
Secret code writer, 19,39 
Secret message, 9,35 
Shortest word, 17,38 
Sink the sub, 26,42 
SPC, 4,46 

Speed calculator, 7,34 
Spot the bug puzzles, 22,41 
Step puzzles, 8,35 
String puzzles, 16,38 
string variables, 6-7 
subscripts, 24 
TAB, 4,46 

Tables Tester, 12,36 

Telephone directory, 23,41 

Treasure hunt program, 28-33,43-44 

Twenty questions, 25,42 

Word editor, 17,38 

Word guessing game, 13,36 
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